PRO7000 DC Motor Operator 

Manual forces, automatic limits 

New learn switch for learning the limits 

Code based on Flex GDO 



Notes: 



— Motor is controlled via two Form C relays to control direction 

— Motor speed is controlled via a fet (2 lRF540's in parallel) with a 

phase control PWM applies . 

— Wall control (and RS232) are P98 with a redundant smart button and 

command button on the logic board 



Flex GDO Logic Board 

Fixed AND Rolling Code Functionality 
Learn from keyless entry transmitter 
Posi-lock 

Turn on light from broken IR beam (when at up limit) 

Keyless entry temporary password based on number of hours or number 
of activations. (Rolling code mode only) 

GDO is initialized to a 'clean slate' mode when the memory is erased. 
Irt this mode, the GDO will receive either fixed or rolling codes. 
When the first radio code is learned, the GDO locks itself into that 
mode (fixed or rolling) until the memory is again erased. 

Rolling code derived from the Leaded67 code 

Using the 8K zilog 233 chip 

Timer interrupt needed to be 2X faster 



Revision History 
Revision 1.1: 

-- Changed light from broken IR beam to work in both fixed and rolling 
modes . 

— Changed light froir. IR beam to work only on beam break, not on beam 
block. 

Revision 1.2: 

— Learning rolling code formerly erased fixed code. Mode is now 
determined by first transmitter learned after radio erase. 

Revision 1.3: 

— Moved radio interrupt disable to reception of 20 bits. 

— Changed mode of radio switching. Formerly toggled upon radio error, 
now switches in pseudo-random fashion depending upon value of 

125 ms timer. 

Revision 1.4: 

— Optimized portion of radio after bit value is determined. Used 
relative addressing to speed code and minimize ROM size. 

Revision 1.5: 

-- Changed mode of learning transmitters. Learn command is now 

light-command, learn light is now light-lock, and learn open/close/ 
stop is lock-command . (Command was press light, press command, 
release light, release command, worklight was press light, press comma] 
release command, release light, o/c/s was press lock, press command, 
release command, release lock. This caused DOG2 to reset; 
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Revision 1.6: 

— Light button and light transmitter now ignored during travel. 
Switch data cleared only after a command switch is checked. 

Revision 1.7: 

— Rejected fixed mode (and fixed mode test) when learning light and 
open/close/stop transmitters. 

Revision 1.8: 

— Changed learn from wall control to work only when both switches are 
held. Modified force pot. read routine (moved enabling of blank 
time and disabling of interrupts) . Fixed mode now learns command 
with any combination of wall control switches. 

Revision 1.9: 

-- Changed PWM output to go from 0-50% duty cycle. This eliminated the 
problem of PWM interrupts causing problems near 100% duty cycle. 

THIS REVISION REQUIRES A HARDWARE CHANGE. 

Revision 1.9A: 

-- Enabled ROM checksum.. Cleaned up documentation. 
Revision 2.0: 

-- Blank time noise immumtity. If noise signal is detected during blank time the data 
already recieved is nor thrown out. The data is retained, and the noise 
pulse is identified as such. The interrupt is enabled to contine to look 
for the sync pulse. 

Revision 2. OA: 

-- On the event that the noise pulse is of the same duration as the sync pulse, 
the time between sync and first data pulse (inactive time) is measured. The 
inactive time is 5.14ms for billion code and 2.4ms for rolling code. If it is 
determined that the previously received sync is indeed a noise pulse, the pulse 
is thrown out and the micro continuies to look for a sync pulse as in Rev. 2.0. 

Revision 2.1: 

— To make the blank time more impervious to noise, the sync pulses are 
differentiated between. Fixed max width is 4.6ms, roll max width is 2.3ms. 
This is simular to the inactive time check done in Rev. 2. OA. 

Revision 2.2: 

-- The worklight function; when the IR beam is broken and the door is at the up limit 
the light will turn on for 4.5 min. This revision allows the worklight function to 
be enabled and disabled by the user. The function will come enabled'from the factory. 
To disable, with the light off press and hold the light button for 7 sec. The light will 
come on and after 7 sec. the function is disabled the light will turn off. To enable the 
function, turn the light on, release the button, then press and hold the light button 
down for 7 sec. The light will turn off and after the function has been enable in 7 sec. 
the light will turn on. 

Revision 3.0: 

-- Integrated in functionality for Siminor rolling code transmitter. The Siminor 
transmitter may be received whenever a C code transmitter may be received. 
Siminor transmitters are able to perform as a standard command or as a light 
control transmitter, but not as an open/close /stop transmitter. 

Revision 3.1: 

-- Modified handling of rolling code counter (in mirroring and adding) to improve 
efficiency and hopefully kill all short cycles when a radio is jammed on the 
air . 

PRO7000 

Revision 0.1: 

-- Removed physical limit tests 

— Disabled radio temporarily 

— Put in sign bit test for limits 
-- Automatic limits workina 
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Revision 0.2: 

-- Provided for traveling up when too close to limit 
Revision 0.3: 

— Changed force pot. read to new routine. 

— Disabled Tl interrupt and all old force pot. code 

— Disabled all RS232 output 

Revision 0.4: 

— Added in (veerrrry) rough force into pot. read routine 
Revision 0.5: 

— Changed EE PROM in comments to add in up limit, last operation, and 
down limit. 

— Created OnePass register 

— Added in limit read from nonvolatile when going to a moving state 

— Added in limit read on power-up 

— Created passcounter register to keep track of pass point (s) 

— Installed basic wake-up routine to restore position based on last state 

Revision 0.6: 

— Changed RPM time read to routine used in P98 to save RAM 

— Changed operation of RPM forced up travel 

-- Implemented pass point for one-pass-point travel 

Revision 0.7: 

— Changed pass point from single to multiple (no EE PROM support) 
Revision 0.8: 

— Changed all SKIPRADIO loads from OxFF to NOEECOMM 

— Installed EEPROM support for multiple pass points 

Revision 0.9: 

— Changed state machine to handle wake-up (i.e. always head towards 
the lowest pass point to re-orient the GDO) 

Revision 0.10: 

— Changed the AC line input routine to work off full-wave rectified 
AC coming in 

Revision 0.11: 

— Installed the phase control for motor speed control 
Revision 0.12: 

— Installed traveling down if too near up limit 

— Installed speed-up when starting travel 
--' Installed slow-down when ending travel 

Revision 0.13: 

-- Re-activated the C code 

Revision 0.14: 

-- Added in conditional assembly for Siminor radio codes 
Revision 0.15: 

-- Disabled old wall control code 

— Changed all pins to conform with new layout 

— Removed unused constants 

-- Commented out old wall control routine 

— Changed code to run at 6MHz 

Revision 0.16 

-- Fixed bugs in Flex radio 
Revision 0.17 

-- Re-enabled eld wall ccntrcl. Changed command charging time to 12 ms 
to fix FMEA problems with IR protectors. 

Revision 0.18 
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— Turned on learn switch connected to EE PROM clock line 
Revision 0.19 

— Eliminated unused registers 

— Moved new registers out of radio group 

— Re-enabled radio interrupt 

Revision 0.20 

— Changed limit test to account for "lost" position 

— Re-wrote pass point routine 

Revision 0.21 

— Changed limit tests in state setting routines 

— Changed criteria for looking for lost position 

— Changed lost operation to stop until position is known 

Revision 0.22: 

— Added in L_A_C state machine to learn the limits 

— Installed learn-command to go into LAC mode 

— Added in command button and learn button jog com 

— Disabled limit testing when in learn mode 

— Added in LED flashing for in learn mode 

— Added in EVERYTHING with respect to learning lim: 

— NOTE: LAC still isn't working properly!!! 



Revision 0.24: 

— Touched up RS2 32 over wall control routine 

— Removed 50Hz force table 

— Added in fixes to LAC state machine 

Revision 0.25: 

— Added switch set and release for wall control (NOT smart switch) 
into RS232 commands (Turned debouncer set and release in to subs) 

— Added smart switch into RS232 commands (smart switch is also a sub) 

— Re-enabled pass point test in ' : • RS232 command 
-- Disabled smart switch scan when in RS232 mode 

-- Corrected relative references m debouncer subroutines 

— RS232 *F' command still needs to be fixed 

Revision 0.26: 

-- Added in max. force operation until motor ramp-up is done 
-- Added in clearing of slowdown flag in set any routine 

— Changed RPM timeout from 30 to 60 ms ~ 

Revision 0.2": 

-- Switched phase control to off, then on (was on, then off) inside 
each half cycle of the AC line (for noise reduction) 

— Changed from 40ms unit max. period to 32 (will need further changes) 

— Fixed bug in force ignore during ramp (previously jumped from down to 
up state machine!) 

— Added in complete force ignore at very slow part of ramp (need to change 
this to ignore when very close to limit) 

— Removed that again 

— Bug fix — changed force skip during ramp-up. Before, it kept counting 
down the force ignore timer. 

Revision 0.28: 

— Modified the wall control documentation 

-- Installed blinking the wall control on an IR reversal instead of the 
worklight 

— Installed blinking the wall control when a pass point is seen 
Revision 0.29: 

— Changed max. RPM timeout to 100 ms 

— Fixed wall control blink bug 

— Raised minimum speed setting 
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NOTE: Forces still need to be set to accurate levels 
Revision 0.30: 

— Removed 'ei' before setting of peon register 

— Bypassed slow-down to limit during learn mode 

Revision 0.31: 

— Changed force ramp to a linear FORCE ramp, not a linear time ramp 
— Installed a look-up table to make the ramp more linear. 

— Disabled interrupts during radio pointer match 

-- Changed slowdown flag to a up-down-stop ramping flag 

Revision 0.32: 

— Changed down limit to drive lightly into floor 

— Changed down limit when learning to back off of floor a few pulses 
Revision 0.33: 

— Changed max. speed to 2/3 when a short door is detected 
Revision 0.34: 

— Changed light timer to 2.5 minutes for a 50 Hz line, 4.5 minutes for 

a 60 Hz line. Currently, the light timer is 4.5 minutes WHEN THE UNIT 
FIRST POWERS UP. 
-- Fixed problem with leaving RP set to an extended group 

Revision 0.35: 

— Changed starting position of pass point counter to 0x30 
Revision 0.36: 

— Changed algorithm for finding down limit to cure stopping at the floor 
during the learn cycle 

— Fixed bug in learning limits: Up limit was being updated from EE PROM 
during the learn cycle! 

— Changed method of checking when limit is reached: calculation for 
distance to limit is now ALWAYS performed 

-- Added in skipping of limit test when position is lost 

Revision 0.37: 

-- Revised minimum travel distance and short door constants to reflect 
approximately 10 RPM pulses / inch 

Revision 0.38: 

-- Moved slowstart number closer to the limit. 
-- Changed "backoff number from 10 to 8 

Revision 0.39: 

-- Changed backoff number from 8 to 12 
Revision 0.40: 

-- Changed task switcher to unburden processor 

— Consolidated tasks 0 and 4 

-- Took extra unused code out of tasks 1, 3, 5, 7 

— Moved aux light and 4 ms timer into task 6 

— Put state machine into task 2 only 

— Adjusted auto_delay, motdel, rpm_time_out, force_ignore, motor_timer, 
obs_count for new state machine tick 

— Removed force_pre prescaler (no longer needed with 4ms state machine) 
— Moved updating of obs_count to one ms timer for accuracy 

~ Changed autoreverse delay timer into a byte-wide timer because it was 
only storing an 8 bit number anyways... 

— Changed flash delay and light timer constants to adjust for 4ms tick 

Revision 0.41 

— Switched back to 4MKz operation to account for the fact that Ziloa's 
Z86/33 07? won't run at 6MHz reliably 

Revision 0.42: 

— Extended RPM timer so that it could measure from 0 - 524 ms with 
a resolution of 8us 
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Revision 0.43: 

— Put in the new look-up table for the force pots (max RPM pulse period 
multiplied by 20 to scale it for the various speeds). 

— Removed taskswitch because it was a redundant register 

— Removed extra call to the auxlight routine 

— Removed register 'temp' because, as far as I can tell, it does nothing 

— Removed light_pre register 

— Eliminated 'phase' register because it was never used 

— Put in preliminary divide for scaling the force and speed 

— Created speedlevel AND IDEAL speed registers, which are not yet used 

Revision 0.47: 

— Undid the work of revisions 0.44 through 0.4 6 

— Changed ramp-up and ramp-down to an adaptive ramp system 

— Changed force compare from subtract to a compare 

— Removed force ignore during ramp (was a kludge) 

— Changed max. RPM time out to 500 ms static 

— Put WDT kick in just before main loop 

— Fixed the word-wise T0EXT register 

— Set default RPM to max. to fix problem of not ramping up 

Revision 0.48: 

— Took out adaptive ramp 

— Created look-ahead speed feedback in RPM pulses 
Revision 0.49: 

— Removed speed feedback (again) 

NOTE: Speed feedback isn't necessarily impossible, but, after all my 
efforts, I've concluded that the design time necessary (a large 
amount) isn't worth the benefit it gives, especially given the 
current time constraints of this project. 

— Removed RPM_SET_DIFF lo and hi registers, along with I DEAL_S PEE D lo 
and hi registers (only need them for speed feedback) 

— Deleted speedlevel register (no longer needed) 

— Separated the start of slowdown for the up and down directions 

— Lowered the max. speed for short doors 

— Set the learn button to NOT erase the memory when jogging limits 
Revision 0.50: 

— Fixed the force pot read to actually return a value of 0-64 

— Set the msx. RPM period time out to be equivalent to the force setting 

Revision 0.51: 

-- Added in P2M_SHADOW register to make the following possible: 

— Added in flashing warning light (with auto-detect) 

Revision 0.52: 

— Fixed the variable worklight timer to have the correct value on 
power-up 

— Re-enabled the reason register and stackreason 

— Enabled up limit to back off by one pulse if it appears to be 
crashing the up stop bolt. 

— Set the door to ignore commands and radio when lost 

— Changed start of down ramp to 220 

— Changed backoff from 12 to S 

— Changed drive-past of down limit to 9 pulses 
Revision 0.53: 

— Fixed RS232 *9' and ' F' commands 

— Implemented RS232 'K* command 

— Removed 'M ' , 'P', and 'S' commands 

-- Set the learn LED to always turn off at the end of the 
learn limits mode 

■Revision 0.54: 

— Reversed the direction of the pot. read to correct the direction 
of the min. and max. forces when dialing the pots. 

— Added in "U" command (currently does nothing) 
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— Added in "V" command to read force pot. values 
Revision 0.55: 

— Changed number of pulses added in to down limit from 9 to 16 
Revision 0.56: 

— Changed backoff number from 16 back to 9 (not 8!) 

— Changed minimum force/speed from 4/20 to 10/20 

Revision 0.57: 

— Changed backoff number back to 16 again 

— Changed minimum force/speed from 10/20 back to 4/20 

— Changed learning speed from 10/20 to 20/20 

Revision 0.58: 

— Changed learning speed from 20/20 to 12/20 (same as short door) 

— Changed force to max. during ramp-up period 

— Changed RPM timeout to a static value of 500 ms 

— Changed drive-past of limit from 1" to 2" of trolley travel 
(Actually, changed the number from 10 pulses to 20 pulses) 

— Changed start of ramp-up from 1 to 4 (i.e. the power level) 

— Changed the algorithm when near the limit — the door will no 
longer avoid going toward the limit, even if it is too close 

Revision 0.59: 

— Removed ramp-up bug from autoreverse of GDO 
Revision 0.60: 

— Added in check for pass point counter of -1 to find position when lost 

— Change in waking up when lost. GDO now heads toward pass point only on 
first operation after a power outage. Heads down on all subsequent 

Created the "limits unknown" fault and prevented the GDO from traveling 
when the limits are not set at a reasonable value 
-- Cleared the fault code on entering learn limits mode 

— Implemented RS232 'H' command 

Revision 0.61: 

— Changed limit test to look for trolley exactly at the limit position 

— Changed search for pass point to erase limit memory 
-- Changed setup position to 2" above the pass point 

-- Set the learn LED to turn off whenever the L_A_C is cleared 

-- Set the learn limits mode to shut off whenever the worklight times out 

Revision 0.62: 

— Removed test for being exactly at down limit (it disabled the drive into 
the limit feature) 

— Fixed bug causing the GDO to ignore force when it should autoreverse 
-- Added in ignoring commands when lost and traveling up 

Revision 0.63: 

— Installed MinSpeed register to vary minimum speed with force pot 
setting 

Created main loop routine to scale the min speed based on force pot. 
-- Changed drive-past of down limit from 20 to 30 pulses (2" to 3") 

Revision 0.64: 

— Changed learning algorithm to utilize block. (Changed autoreverse to 
add in 1/2" to position instead of backing the trolley off of the floor) 

— Enabled ramp-down when nearing the up limit in learn mode 

Revision 0.65: 

-- Put special case in speed check to enable slow down near the up limit 
Revision C.66: 

— Changed ramp-up: Ramping up of speed is now constant — the ramp-down 
is the only ramp affected by the force pot. setting 

— Changed ramp-up and ramp-down tests to ensure that the GDO will get UP 
to the minimum speed when we are inside the ramp-down zone (The above 



Page 7 of 97 




change necessitated this) 

— Changed down limit to add in 0.2" instead of 0.5" 

Revision 0.67: 

— Removed minimum travel test in set_arev_state 

— Moved minimum distance of down limit from pass point from 5" to 2" 

— Disabled moving pass point when only one pass point has been seen 

Revision 0.68: 

— Set error in learn state if no pass point is seen 
Revision 0.69: 

— Added in decrement of pass point counter in learn mode to kill bugs 

— Fixed bug: Force pots were being ignored in the learn mode 

-- Added in filtering of the RPM (RPM_FILTER register and a routine in 
the one ms timer) 

— Added in check of RPM filter inside RPM interrupt 

— Added in polling RPM pin inside RPM interrupt 

— Re-enabled stopping when in learn mode and position is lost 

Revision 0.70: 

— Removed old method of filtering RPM 

— Added in a "debouncer" to filter the RPM 

Revision 0.71: 

— Changed "debouncer" to automatically vector low whenever an RPM pulse 
is considered valid 

Revision 0.72: 

— Changed number of pulses added in to down limit to 0. Since the actual 
down limit test checks for the position to be BEYOND the down limit 
this is the equivalent of adding one pulse into the down limit 

Revision 0.74: 

-- Undid the work of rev. 0.7 3 

— Changed number of pulses added in to down limit to 1. Noting the comment 
in rev. 0.72, this means that we are adding in 2 pulses 

-- Changed learning speed to vary between 8/20 and 12/20, depending upon 
the force pot. setting 

Revision 0.75: 

— Installed power-up chip ID on F22, P23, P24, and P25 

Note: ID is on F24, P23, and P22. P25 is a strobe to signal valid data 
First chip in is 0C: {with strobe, it's 1001) 

— Changed set_any routine to re-enable the wall control just in case we 
stopped while the wall control was being turned off (to avoid disabling 
the wall control completely; 

— Changed speed during learn mode to be 2/3 speed for first seven seconds, 
then to slow down to the minimum speed to make the limit learning the same 
as operation during normal travel. 

Revision 0.76: 

— Restored learning tc operate only at 60% speed 
Revision 0.11: 

— Set unit to reverse off of floor and subtract 1" of travel 

— Reverted to learning at 4 0% - 60% of full speed 

Revision 0.78: 

— Changed rampflag to have a constant for running at full speed 

— Used the above change to simplify the force ignore routine 

— Also used it to change the RPM time out. The time out is now set equal 
to the pot setting, except during the ramp up when it is set to 500 ms . 

— Changed highest force pot setting to be exactly equal to 500ms. 

Revision 0.75: 

— Changed setup routine to reverse off block (yet again) . Added in one pulse. 
Revision 1.0: 
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— Enabled RS232 version number return 

Enabled ROM checksum. Cleaned up documentation 

Revision 1.1: 

-- Tweaked light times for 8.192 ms prescale instead of 8.0 ms prescale 
-- Changed compare statement inside setvar light to 'uge' for consistency 
-- Changed one-shot low time to 2 ms for power line 

— Changed one-shot low time to truly count falling-edge-to-falling-edge 
Revision 1.2: 

-- Eliminated testing for lost GDO in set_up_dir_state (is already taken 
care of by set_dn_dir_state) 

— Created special time for max. run motor timer in learn mode: 50 seconds 

Revision 1.3: 

— Fixed bug in set_any to fix stack imbalance 

— Changed short door discrimination point to 78" 

Revision 1.4: 

— Changed second 'di' to ' ei ' in KnowSimCode 

— Changed IR protector to ignore for first 0.5 second of travel 

— Changed blinking time constant to take it back to 2 seconds before travel 

— Changed blinking code to ALWAYS flash during travel, with pre-travel flash 
when module is properly detected 

— Put in bounds checking on pass point counter to keep it in line 

— Changed driving into down limit to consider the system lost if floor not seen - 
Revision 1.5: 

— Changed blinking of wall control at pass point to be a one-shot timer 
to correct problems with bad passpoint connections and stopping at pass 
point to cause wall control ignore. 

Revision 1.6: 

-- Fixed blinking of wall control when indicating IR protector reversal 
to give the blink a true 50% duty cycle. 

Changed blinker output to output a constant high instead of pulsing. 

— Changed P2S_POR to 1010 (Indicate Siminor unit) 

Revision 1.7: 

-- Disabled Siminor Radio 

— Changed P2S_POR to 1011 (Indicate Lift-Master unit) 

-- Added in one more conditional assembly point to avoid use of simradio label 
Revision 1.8: 

— Re-enabled Siminor Radio 

— Changed P2S_POR back to 1010 (Siminor) 

— Re-fixed blinking of wall control LED for protector reversal 

— Changed blinking of wall control LED for indicating pass point 
-- Fixed error in calculating highest pass point value 

— Fixed error in calculating lowest pass point value 

Revision 1.9: 

— Lengthened blink time for indicating pass point 

— Installed a max. travel distance when lost 

-- Removed skipping up limit test when lost 

-- Reset the position when lost and force reversing 

— Installed sample of pass point signal when changing states 

Revision 2.0: 

-- Moved main loop test for max. travel distance (was causing a memory 
fault before) 

■ Revision 2.1: 

— Changed limit test to use 11000000b instead of 10000000b to ensure 
only setting up iir.it wher. we're actually close. 

Revision 2.2: 

-- Changed minimum speed scaling to move it further down the pot. rotation. 
Formula is now: ((force - 24) / 4) +4, truncated to 12 
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— Changed max. travel test to be inside motor state machine. Max. travel 
test calculates for limit position differently when the system is lost. 

— Reverted limit test to use 10000000b 

-- Changed some jp's to jr's to conserve code space 

— Changed loading of reason byte with 0 to clearing of reason byte (very 
desperate for space) 

Revision 2.3: 

-- Disabled Siminor Radio 

— Changed P2S_POR to 1011 (Lift-Master) 

Revision 2.4: 

— Re-enabled Siminor Radio 

-- Changed P2S_P0R to 1010 (Siminor) 

— Changed wall control LED to also flash during learn mode 

— Changed reaction to single pass point near floor. If only one pass point 
is seen during the learn cycle, and it is too close to the floor, the 
learn cycle will now fail. 

— Removed an ei from the pass point when learning to avoid a race condition 

Revision 2.5: 

— Changed backing off of up limit to only occur during learn cycle. Backs 
off by 1/2" if learn cycle force stops within 1/2" of stop bolt. 

— Removed considering system lost if floor not seen. 

— Changed drive-past of down limit to 36 pulses (3") 

— Added in clearing of power level whenever motor gets stopped (to turn off 
the FET's sooner) 

— Added in a 40ms delay (using the same MOTDEL register as for the traveling 
states) to delay the shut-off of the motor relay. This should enable the 
motor to discharge some energy before the relay has to break the current 
flow) 

— Created STOPNOFLASH label — it looks like it should have been there all along 

— Moved incrementing MOTDEL timer into head of state machine to conserve space 

Revision 2.6: 

— Fixed back-off of up limit to back off in the proper direction 

— Added in testing for actual stop state in back-off (before was always backing 
off the limit) 

— Simplified testing for light being on in 'set any' routine; eliminated lights 
register 

Revision 2.7: (Test-only revision) 

-- Moved ei when testing for down limit 

-- Eliminated testing for negative number in radio time calculation 

— Installed a primitive debouncer for the pass point (out of paranoia) 

-- Changed a pass point in the down direction to correspond to a position of 1 
-- Installed a temporary echo of the RPM signal on the blinker pin 
-- Temporarily disabled ROM checksum 

-- Moved three subroutines before address 0101 to save space (2.7B) 

— Framed look up using upforce and dnforce registers with di and ei to 
prevent corruption of upforce or dnforce while doing math (2.7C) 

— Fixed error in definition of pot_count register (2.7C) 

-- Disabled actual number check of RPM perdod for debug (2.7D) 

-- Added in di at test_up_sw and test_dn_sw for ramping up period (2. 7D) 

— Set RPM_TIME_OUT to always be loaded to max value for debug (2.7E) 

— Set RPM_TIME_OUT to round up by two instead of one (2.7F) 
-- Removed 2 . 7E revision (2.7F) 

— Fixed RPM_TIME_OUT to round up in both the up and down direction (2 . 7G) 

— Installed constant RS232 output of RPM_TIME_OUT register (2.7H) 

— Enabled RS232 'U* and 'V commands (2.71) 

— Disabled consant output of 2.7H (2.71) 

— Set RS232 'U' to output RPM_TIME_OUT ( 2 . 71 ) 

— Removed disable of actual RPM number check (2. 7 J) 

— Removed pulsing to indicate RPM interrupt (2. 7 J) 

— 2: 7 J note — need to remove 'u* command function 

Revision 2.8: 

-- Removed interrupt enable before resetting rpm_time_out. This will introduce 
roughly 30us of extra delay in time measurement, but .should take care of 
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nuisance stops. 

— Removed push-ing and pop-ing of RP in tasks 2 and 6 to save stack space (2.8B) 

— Removed temporary functionality for 'u' command (2.8 Release) 

— Re-enabled ROM checksum (2.8 Release) 



LAC State Machine 



Back to 
Up Lim 



Position 
the limit 



NON-VOL MEMORY MAP 



Multi-functii 



A10 
A10 
All 
All 



unused D7 
unused D7 

unused DTCP Keyless permanent 4 digit code 

unused DTCID Keyless ID code 

unused DTCR1 Keyless Roll value 

unused DTCR2 

unused DTCT Keyless temporary 4 digit code 

unused Duration Keyless temporary duration 

Upper byte = Mode: hours/activati 
Lower byte = # of hours /activation 

unused Radio type 

77665544 33221100 

00 = CMD 01 = LIGHT 
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10 = OPEN /CLOSE /STOP 

27 unused Fixed / roll 

Upper word = fixed/roll byte 
Lower word = unused 

28 CYCLE COUNTER 1ST 16 BITS 

29 CYCLE COUNTER 2ND 16 BITS 
2 A VACATION FLAG 

Vacation Flag , Last Operation 
0000 XXXX in vacation 

1111 XXXX out of vacation 

2B A MEMORY ADDRESS LAST WRITTEN 

2C IRLIGHHTADDR 4-22-97 

2D Up Limit 

2E Pass point counter / Last operating state 

2F Down Limit 

30-3F Force Back trace 



RS232 DATA 



REASON 

00 COMMAND 

10 RADIO COMMAND 

20 FORCE 

30 AUX OBS 

4 0 A REVERSE DELAY 

50 LIMIT 

60 EARLY LIMIT 

7 0 MOTOR MAX TIME, TIME OUT 

80 MOTOR COMMANDED OFF RPM CAUSING AREV 

90 DOWN LIMIT WITH COMMAND HELD 

AO DOWN LIMIT WITH THE RADIO HELD 

B0 RELEASE OF COMMAND OR RADIO AFTER A FORCED 

UP MOTOR ON DUE TO RPM PULSE WITHG MOTOR OFF 

STATE 

00 AUTORE VERSE DELAY 

01 TRAVELING UP DIRECTION 

02 AT THE UF LIMIT AND STOPED 

03 ERROR RESET 

04 TRAVELING DOWN DIRECTION 

05 AT THE DOWN LIMIT 

06 STOPPED IN MID TRAVEL 



DIAG 



1) AOBS SHORTED 

2) AOBS OPEN / MISS ALIGNED 

3) COMMAND SHORTED 

4) PROTECTOR INTERMITTENENT 

5) CALL DEALER 

NO RPM IN THE FIRST SECOND 

6) RPM FORCED A REVERSE 

7) LIMITS NOT LEARNED YET 



DOG 2 



DOG 2 IS A SECONDARY WATCHDOG USED TO 

RESET THE SYSTEM IF THE LOWEST LEVEL "MAINLOOP" 

IS NOT REACHED WITHIN A 3 SECOND 



GLOBALS ON 



Yes 


.equ 


1 


No 


. equ 


0 


TwoThirtyThre 


e . equ 


Yes 


UseSiminor 


. equ 


Yes 


EQUATE 


STATEMENTS 




check slim val 


ue . equ 


065H 


TPfER_l_EN 


.equ 


OCH 


MOioRTIME 


.equ 


(2700C / 4 


LAC TIME 


. equ 


(500 / 4) 


LEARNT I ME 


.equ 


(50000 / 4 


Pff§_CHARGE 


. equ 


00H 








Li£|HT_ON 


. equ 


10000000B 


MDiFOR UP 


. equ 


01000000B 


MOTOR_DN 


. equ 


00100000B 


UNOUT 




00C10C00B 


DQWN_OUT 


. equ 


00100000B 


DOWN_COM? 




00000001B 


U£]_COMP 


. equ 


00000010B 


FALSEIR 


.equ 


00000001B 


liEiJEINPIN 




00010000b 


PPointPorr 


. equ 


p2 


PassPoint 


. equ 


00001000B 


PhasePrt 


.equ 


pO 


PhaseHigh 




00010000B 


CHARGE_SW 


. equ 


10000000B 




.equ 01000000B 


SWITCHES 1 


. equ 


00001000B 


SWITCHES2 


. equ 


00000100B 


P01M INIT 


.equ 


00000101B 


P2M INIT 


. equ 


01011100E 


P2M POR 




01000000B 


P3M_INIT 


. equ 


00000011B 


P01S INIT 


.equ 


10000000B 


P2S_INIT 




00000110B 


P2S_POR 


-equ 


00101010B 


F3S_INIT 




cocococce 


BLINK_PIN 




00000100B 


P2M ALLOUTS 


.equ 




P2M_ALLINS 




01011000B 


RsPerHalf 




104 



; Enable a symbol file 



CRC checksum for ROM code 
TMR mask to start timer 1 



Max. run for motor = 2 
Delay before learning 



Max. run for motor 



learn mode 



; PWM state for old force pots. 

; Flag for light on constantly 

; P0 pin turning on worklight 

; P0 pin turning on the up motor 

; P0 pin turning on the down motor 

; P3 pin output for up force pot. 

; P3 pin output for down force pot. 

; P0 pin input for down force pot. 

; P0 pin input for up force pot. 

; P2 pin for false AOBS output 

; P2 pin for reading in AC line 

; Port for pass point input 

; Bit mask for pass point input 

; Port for phase control output 

,* Pin for controlling FET ' s 

; P3 Pin for charging the wall control 

P3 Pin for discharging the wall control 

; PO Pin for first wall control input 

; PO Pin for second wall control input 



set mode p00-p03 in p04-p07 out 

P2M initialization for operation 

P2M initialization for output of chip ID 

set port3 p30-p33 input ANALOG mode 

Set init. state as worklight on, motor off 
Init p2 to have LED off 

P2 init to output a chip ID (P25, P24, P23, P22) 
Init p3 to have everything off 



.rols fla 



sher module 



Pins which need to be refreshed to outputs 
Pins which need to be refreshed to inputs 



RS232 period 1200 Baud half time 416uS 
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RsPerFull 
RsPerlP22 

FLASH 
WORKLIGHT 

PPOINTPUL3ES .equ 

SetupPos 

CMD_TEST 

WL_TEST 

VAC_TEST 

CHARGE 

RS STATUS 

WALLOFF 



AUTO_REV 

UP_DIRECTION 

UP_POSITION 

DN_DIRECTION 

DEPOSITION 

siov 

CMD_SW 
LIfiHT_SW 
VAC SW 



, equ 

, equ 
- equ 



. equ 
. equ 



. equ 
. equ 



. equ 

. equ 
. equ 
. equ 
.equ 
. equ 

.equ 

01H 

02H 

04H 

05H 

. equ 

. equ 



OFFH 

LIGHT ON 



0 6H 
OiH 
02H 
04H 



; RS232 period full time 832us 

; RS232 period 1.22 unit times 1.024ms (00 = 256) 



; Pin for toggling state of worklight 
Number of RPM pulses between pass points 
Setup position -- 2" above pass point 

; States for old wall control routine 



; Hold wall control ckt . in RS232 mode 
; Turn off wall control LED for blinks 

; States for GDO state machine 



Flags for switches hit 



F$XED_MODE 
RQLL_MODE 
FIXED_TEST 
R<SiL_TEST 

fiked_mask 
rqll_kask 

fijIthr 

DTlR 

FJ.^SYNC 

DSYNC 

FIXBITS 

DBITS 

EQUAL 
BACKWIN 
FWDWIN 
OUTOFWIN 

Addr e s s Count e r 
AddressAPointe: 

CYCCOUNT 

TOUCHID 

TOUCHROLL 

TOUCHPERM 

TOUCHTEMP 

DURAT 

VERSIONNUM 
; 4-22-97 . 
IRLIGHTADDR 
DISABLED 

RTYPEADDR 
VACATI ONADDR . 
MODEADDR 



. equ 
. equ 
. equ 
. equ 
.equ 

03H 

. equ 

.equ 

.equ 

.equ 

.equ 

. equ 
.equ 

80H 



. equ 
. equ 



.equ 
. equ 



• equ 

. EQU 
. EQU 



10101010b 
01010101b 
00000000b 
00000001b 
FIXED_TEST 
ROLL_TEST 



02H 
08K 
04H 



7FH 
OFFH 



27H 
2BH 



21H 
22H 
20H 
24H 
25H 



2CH 
O0H 

2 6H 



; Fixed mode radio 

; Rolling mode radio 

; Unsure of mode — test fixed 

; Unsure of mode — test roll 

;Bit mask for fixed mode 

;Bit mask for rolling mode 

; Fixed code decision threshold 

; Rolling code decision threshold 
; Fixed code sync threshold 
; Rolling code sync threshold 
; Fixed code number of bits 
/Rolling code number of bits 



/Counter compa: 



ult 



/Touch code ID 

/Touch code roll value 

/Touch code permanent password 

/Touch code temporary password 

/Touch code temp, duration 

/Version: PRO7000 V2 . 8 

/work light feature on or off 
;00 = disabled, FF = enabled 

/Radio transmitter type 

/Rolling/Fixed mode in EE PROM 
/High byte = don't care (now) 
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UPLIMADDR 


. equ 


2DH 


LAST STATEADDR 


-equ 2EH 




DNLIMADDR 


.equ 


2FH 


NOEECOMM 


equ 


0111 


NOINT 


equ 


1000 


RDROPTIME 


. equ 


125 


LRNOCS 


■ equ OAAH 




BRECEIVED 


.equ 


077H 


LRNLIGHT 


.equ 


OBBH 


LRNTEMP 






LRNDURTN 


.equ 


ODDH 


REGLEARN 


.equ 


OEEK 


NORMAL 


.equ 00H 




ENTER 


.equ' 


00H 


POUND 


.equ 


01H 




.equ 


02H 


ACTIVATIONS 




OAAH 


HOURS 




055K 


Fl 
,-F ags 


for Ramp Flag Reg 


StfLL 


.equ 


00H 




. equ OAAH 




RAMPDOWN 




OFFH 


FULLS PEED 


.equ 


OCCH 


UPSLOWSTART 




200 








DNSLOWSTART 


.equ 


220 


direction) 






BACKOFF 


. equ 


16 






floor 






SHORTDOOR 




936 


discriminates 













;Low byte = RadioMode flag 
; Address of up limit 
; Address of last state 

; Address of down limit 

;Flag: skip radio read/write 
;Flag: skip radio interrupts 

/Radio drop-out time: 0.5s 

; Learn open/close /stop 

;B code received flag 

; Light command trans. 

; Learn touchcode temporary 

; Learn t.c. temp, duration 

/Regular learn mode 

/Normal command trans. 

/Touch code ENTER key 
/Touch code # key 
; Touch code * key 

/Number of activations mode 
;Number of hours mode 



/ Motor not moving 
■ Ramp speed up to maximum 

/ Slow down the motor to minimum 
; Running at full speed 

; Distance (in pulses) from limit when slow- 
/ of GDO motor starts (for up and down 

/ Distance (in pulses) to back trolley off of 
/ when learning limits by reversing off of 

; Travel distance (in pulses) that 

/ one piece door (slow travel) from a normal 

; (normal travel) (Roughly 78") 



AUTO_REV_TIME .equ 124 

MIN_COUNT .equ 02H 

TOTAL_PWM_COUNT .equ 03FH 

FLASH_TIME .equ 61 

/4.5 MINUTE USA LIGHT TIMER 

USA_LIGHT_HI .equ 080H 
USA_LIGHT_LO . equ 0BEK 

;2.5 MINUTE EUROPEAN LIGHT TIMER 



EURO_LIGHT_HI 
EURO_LIGHT_LO 



.equ 04 7H 
.equ 08 6H 



(4 ms prescale) 

pwm start point 

pwm end = start + 2*total-l 

0.25 sec flash time 



4.5 MIN 

4 . 5 MIN 



/ 2.5 MIN 
; 2.5 MIN 



WITH A /4 IN FRONT 



Page 15 of 97 



CMD_MAKE 
CMD_BREAK 
LIGHT_MAKE 
L I GHT_BRE AK 
VAC_MAKE_OUT . 
VAC_BREAK_OUT 
VAC_MAKE_IN 
VAC_BRE AK_ I N , 

VAC_DEL 
CMD_DEL_EX 
VAC DEL EX 



.equ 8 

.equ (255-8) 

.equ 8 

(255-8) 

4 

.equ (255-4) 
2 

(255-2) 
. equ 8 



; cycle count *10mS 
; cycle count *llmS 
cycle count *100mS 



; Delay 16 ms for vacation 
; Delay 12 ms ( 5*2 + 2) 
; Delay 100 ms 



PREDEFINED REG 



Radiolmr 



.equ 00111101b 
.equ 00111100b 

.equ 00000001b 



:rs rpm auxobs 
the radio only 



GLOBAL REGISTERS 



STATE 
ilineCtr 
RakpFlag 
ApTO_DELAY 

lihePer 

MQTOR_TIMER_HI 

BgTOR_TIMER_LO 

MrORJT IMER . e qu 

$fGHT_TIMER_HI 

LIGHT_TIMER_LO 

LIGHT_TIMER . equ 

AOBSF 

PrevPass 



05H 
06H 
07H 
08H 
09H 
0AH 
OBH 



OAF. 
. equ 

0CH 
. equ 



CMD_TEST 00 
WL_TEST 01 
VAC_TEST 02 
CHARGE 03 

Ramp up, ramp down, or stop 
Period of AC line coming in 



CHECK_GR? 

check_sum 

rom_data 

test_adr_hi 

test_adr_lo 

test_adr 

CHECK_SUM 

ROM_DATA 

LIM_TEST_HI 

LIM_TEST_LC 

LIM_TEST 

AUXLEARNSW 

RRTO 

RPM_ACOUNT 
RS_COUNTER 
RS232DAT 

RADIO_CMD 
R_DEAE_T I ME 
FAULT 
VAC FLAG 
VAC FLASH 



.equ 
. equ 
.equ 
. equ 
. equ 
.equ 
CHECK 
. equ 
CHECK 
. equ 
.equ 



rr2 

CHECK_GRP+0 
CHECK_GRP+1 
CHECK_GRP+0 
CHECK_GRP+1 
CHECK_GRP+0 
GRP+2 

" CHECK_GRP+3 
GRP+4 

" CKECK_GRP+5 
CHECK_GRP+6 



; check sum reg for por 



to test for active rpm 

; rs2 32 byte' counter 
; rs232 data 



" GRF-' 



. equ _ 
CHECK_GRP-rS 
.equ CHECK_GRP+9 
.equ CHECK_GRP+10 
.equ CHECK_GRP+11 



; VACATION mode flag 
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VAC CHANGE 
FAULTTIME 
FORCE_I GNORE 
FAULTCODE 



.equ CHECK_GRP+12 
.equ CHECK_GRP+13 

CHECK_GRP+14 

.equ CHECK_GRP+15 



T IMER GROU P 










P ositi° n_ l i 




.equ 






. . n — ° 




" egu 


r 




posi ion 




. equ 


rrO 




up_limithi 




.equ 


r2 








.equ 


r3 




up_l imit 




.equ 


rr2 




switch_delay 


-equ 








obs count 




.equ 


r6 




rs command 




.equ 


r9 




rs_temp_hi 




.equ 


rlO 




rs_temp lo 




.equ 


rll 




rs_temp 




.equ 


rrlO 




POSITION HI 




.equ 


TIMER 


_group+o 


POSITION LO 




.equ 


timer" 


"group+i 


PCSlTION 






TIMEP 


_group+o 


UE1LIMIT HI 




"equ 


TIMER 


GROUP+2 


upJlimit_lo 




.equ 


timer] 


"GROUP+3 


UEI LIMIT 






timer" 


GROUP+2 


SfolTCK DELAY 


.equ 


TIMER_ 


GROUP+ 


4 


OiiePass 






" TIM£R_ 


_GROUP+5 


OBS_COUNT 




. equ 


timer" 


GROUP+6 


RssMode 






timer" 


GROUP+7 


Divisor 




.equ 


timer" 


_GROUP+8 


RS COMMAND 






timer] 


_GROUP+9 


RS ; TEMP HI 






timer" 


GROUP+10 


RSLTEK? LO 




.equ 


timer" 


_GROUP+ll 


R^TEMP 




.equ 


timer" 


]group+io 


Pp'werLevel 






timer" 


"GROUP+12 


PhaseTMR 




. equ 


timer" 


"GROUP+13 


PHlseTime 






timer] 


_GROUF+14 


KaxSpeed 






timer" 


]GROUP-rl5 













LEARN EE GROUP FOR LOOPS ECT 



LEARNEE_GRP 

TEMPH 

TEMPL 

P2M_SHADOW 

LEARN DB 

LEARNT 

ERASET 

MTEMPH 

MTEMPL 

MTEMP 

SERIAL 

ADDRESS 

ZZWIN 

T0_OFLOW 

TOEXT 

TOEXTWORD 

T125MS 

SKIPRADIO 

teniph 
terr.pl 
learndb 
learnt 



. equ 
. equ 



3 OH 

LEARNEE_GRP 
LEARNEEJ3RP+I 
. equ LEARN EE_ 
. equ LEARNEE_ 
. equ LEARN EE_ 
. equ LEARNEE_ 
. equ LEARNEE_ 
. equ LEARNEE_ 
LEARNEE_GRP+8 
. equ LEARNEE_ 
. equ LEARNEE_ 
LEARNEE_GRP+11 
. equ LEARNEE_ 
LEARNEE_GRP+1 3 
. equ LEARNEE_ 
. equ LEARN EE_ 
. equ LEARNEE 



. equ 
. equ 



GRP+2 
GRP+3 
GRP-r4 
GRP+5 
GRP+6 
GRP + 7 

GRP+9 
GRP+10 



GRP+12 
GRP+14 

GRP+15 



Number to divide by 



; Current step in 20-step phase ramp-up ' 
; Timer for turning on and off phase control 
; Current time reload value for phase timer 
; Maximum speed for this kind of door 



; Readable shadow of P2M register 

; learn debouncer 

; learn timer 

; erase timer 
memory temp 

; memory temp 
memory temp 

; data to 4 from nonvol memory 

; address for the serial nonvol memory 
radio 00 code window 

; Third byte of TO counter 
tO extend dec'd every TO int 

; Word-wide TO extension 

; 125mS counter 

; flag to skip radio read, write if 
; learn or vacation talking to it 



learn debouncer 
learn timer 
erase timer 
memory temp 
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mtempl 




equ 


r7 


mtemp 


. equ 


r8 




serial 


. equ 


r9 




address 






rlO 




. equ 


rll 




tO_oflow 




. equ 


rl2 


tOext 


.equ 


r!3 




tOextword 






rr!2 


tl25ms 




"equ 




skipradio 






rl5 


FORCE GROU P 




-equ 




dnforce 




. equ 


n 


p 




• ec 5 u 


rl 


u°°force hi 




.equ 


r3 




. equ 


r 




u force~lo 


. equ 


r 




up force" 




. equ 


rr4 


dn force hi 


. equ 


r 




dr |f% — 


• ec 3 u 


r 










rr6 


r. Di;"ce_add_hi 


.equ 


r8 * 




f qrce_add_lo 


. equ 


r9 




force add 




.equ 


rr8 


up_/ternp 




. equ 


rlO 






■ equ 


rll 


PQt.|_count 




. equ 


rl2 


force temp of 


. equ 


rl3 




fdrce_temp hi 


. equ 


rl4 




force temp lo 


. equ 


rl5 




DKj FORCE 




.equ 


4 OH 


UBFpRCE 




.equ 


4 1H 


A0B57EST 




• equ 


42H 


LoopReg 






43H 


UP— FORCE HI 




4 4H U 




UEUFORCE _ LO 




45H 




DN FORCE HI 


.equ 


4 6H 




DN FORCE LO 




4 7H 




UP TEMP 




. equ 


4 AH 


DN_TEMP 




-equ 


4BK 


POT_COUNT 




-equ 


4CH 


FORCE TEMP OF 


. equ 


4CH 




FORCE TEMP HI 




.equ 




FORCE TEMP - LO 




-equ 


^FH 
* 


RPM_GROUP 




e u 
qu 


50H 


rtypes2 




e 


rO 


stackf lag 




'eau 


■rl 


rpm_temp_of 




"equ 


r2 


rpm_temp_hi 


. equ 


r3 




rpm temp hiword 


-equ 


rr2 


rpm_temp_lo 


. equ 


r4 




rpm_past_hi 


. equ 


r5 




rpm_past_lo 


. equ 


r6 




rpm_period_hi 








rpm_period_lo 




. equ 


r8 


divcounter 




. equ 


rll 






. equ 






.equ 


rl3 




RTypes2 






RPM C 


STACKFLAG 




. equ 


RPM_C 



; memory temp 
memory temp 

data to and from nonvol mem 

; addr for serial nonvol memory 

; Overflow counter for TO 
tO extend dec'd every TO int 
; Word-wide TO extension 
; 125mS counter 

; flag to skip radio read, write 
; learn or vacation talking to it 



; Counter for dividing RPM time 
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RPM_TEMP_OF 

RPM_TEMP_HI . equ 

RPM_TEMP_HWORD 

RPM_TEMP_LO . equ 

RPM_PAST_HI . equ 

RPM_PAST_LO . equ 

RPM_PERIOD_HI 

RPM_PERIOD_LO 

DN_LIMIT_HI 

DN_LIMIT_LO 

DIVCOUNTER 

RPM_FILTER 

RPM_COUNT 

RPM_T IME_OUT . e qu 

BLINK_HI 

BLINK_LO 

BLINK 



. equ RPM_GR0UP+2 

RPM_GROUP+3 

. equ RPM_GROUP+2 

RPM_GR0UP+4 

RPM_GR0UP+5 

RPM_GR0UP+6 
.equ RPM_GROUP+T 
-equ RPM_GROUP+8 
.equ RPM_GR0UP+9 
.equ RPM_GROUP+10 
.equ RPM_GROUP+ll 
.equ RPM_GROUP+il 
.equ RPM_GR0UP+12 
RPM_GR0UP+13 
.equ RPM_GR0UP+14 
.equ RPM_GR0UP+15 
.equ RPM GROUP+14 



; Overflow for RPM Time 
; High word of RPM Time 



Counter for dividing RPM time 

DOUBLE MAPPED register for filtering signal 



Blink timer for flashing the 
about-to-travel warning light 
Word-wise blink timer 



RADIO GROUP 











RasdioGroup 


.equ 


60K 




RTiimp 




.equ 


RadioGroup 


RTjmpH 


.equ 


RadioGroup+1 


RlfempL 


• equ 


RadioGroup+2 


RTimeAH 




. equ 


RadioGroup+3 


RHImeAL 




. equ 


RadioGroup+4 


RPimelH 




. equ 


RadioGroup+5 


EfimelL 






RadioGroup+6 


RadiolH 




. equ 


RadioGroup+7 


RadiolL 






RadioGroup+8 


R@ioC 




RadioG 


roup+S 


Point erK 




. equ 


RadioGroup+iO 






. equ 


RadioGroup+11 


AlMValueH 






RadioGroup+12 


AliivalueL 




. equ 


RadioGroup+13 


Ra§io3H 




. equ 


RadioGroup+ 1 4 


RadioSL 




.equ 


RadioGroup+15 








rO 



rtemph 
rteropl 
r time ah 
rtimeal 



rti 



.eih 



; radio temp storage 

radio temp storage high 

radio temp storage low 

; radio active time high byte 
; radio active time low byte 
; radio inactive time high byte 
; radio inactive time low byte 
; sync 1 code storage 
; sync 1 code storage 



radiolh 
radioll 

radioc .equ 

pointerh 

pointerl 

addvalueh 
addvaluel 
radio 3 h 
radio31 
w2 



equ 
equ 
equ 



3 code ! 
3 code sto 
; radio temp storage 
temp storage high 
temp storage low 
radio active time high byte 
radio active time low byte 
radio inactive time high byte 
radio inactive time low byte 
sync 1 code storage 
sync 1 code storage 
vord count 



Overall pointer fo 



sync 3 code storage 
sync 3 code storage 
For Siminor revision 



CounterGroup .equ 

TestReg 

BitMask 

LastMatch 

LoopCount 

CounterA 

CounterB 

CounterC 



07 Oh 

.equ CounterGroup 

.equ CounterGroup+01 

.eqa Cour.terGroup+02 

.equ CounterGroup-'- 03 

.equ CounterGroup+04 

.equ CounterGroup+05 

.equ CounterGroup+06 



counter group 

Test area when dividing 

Mask for transmitters 
last matching code adare: 
loop counter 

anslation MSB 
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CounterD 




.equ 


Counte rG r oup+ 0 7 


MirrorA 




.equ 


CounterGroup+08 


MirrorB 






Counte rGroup+ 09 


MirrorC 




equ 


Counte rGroup+0 10 


MirrorD 






Counte rGroup+01 1 


COUNT 1H 




' eau 




COUNT 1L 




equ 


Counte rGroup+0 13 


COUNT 3 H 








COUNT 3 L 




" equ 


Counte rGroup+0 1 5 


loopcount 




. equ 


r3 


counters 




. equ 


r4 


counterb 




.equ 


r5 


counterc 






r6 


counterd 




.equ 


r « 






.equ 




mirrorb 




.equ 




mirrorc 




' ec3U 




r r 




.equ 


rll 


_ .. „ 
a 10 roup 




.equ 




PftfSVFIX 




' equ 




ppJevtmp 




. equ 


P-d 10 2^ r ° UP + ^ 


ROLLBIT 




.equ 


Radio2Group + 2 


RTfinie DH 




. equ 


Radio2Group + 3 








Radio2Group + 4 


RTime PH 




. equ 


Radio2Group + 5 






. equ 


Radio2Group + 6 


ID : 3 






Radio2Group + 7 


SfeB 




.equ 


Radio2Group + 8 


RADIOBIT 




. equ 


Radio2Group + 9 


Radi oT imeOut 




Radio2Group + 10 


RedioMode 




.equ 


Radio2Group + 11 


BjitThresh 






Radio2Group + 12 


S^cThresh 




.equ 


Radio2Group + 13 


B i " Lts 




.equ 


Radio2Group + 14 


RFlag 




.equ 


Radio2Group + 15 


pievfix 




. equ 


rO 






. equ 




rollbit 




.equ 


r2 










sw — b 




.equ 




radiobit 




. equ 




radiotimeout 


. equ 


rlO 












rflag 




. equ 


rl5 


OrginalGroup 


. equ 


90H 




SW_DATA 




.equ 


OrginalGroup+0 


ONEP2 






OrginalGroup+1 


LAST_CMD 




.equ 


OrginalGroup+2 


CodeFlag 




.equ 


OrginalGroup+3 


RPMONES 




.equ 


OrgmalGroup+4 


RPMCLEAR 




. equ 


OrginalGroup+5 










FLASK FLAG 




. equ 


OrginalGrouD+7 


FLASK_DELAY 


-equ 


Orgin 


alGroup-^8 



counter trans 1, 
back translate 



back translation LSB 
received count 



/Fixed or rolling mode 

;Bit decision threshold 

;Sync pulse decision threshold 

; Maximum number of bits 

; Radio flags 



1.2 SEC TIMER TICK .125 
LAST COMMAND FROM 
=55 WALL CONTROL 
= 00 RADIO 

Radio code type flag 

FF = Learning open/close/stop 

77 = b code 

AA = open/close/stop code 

55 = Light control transmitter 

00 = Command or unknown 

RPM Pulse One Sec. Disable 

RPM PULSE CLEAR & TEST TIMER 

RPM FORCED AREV FLAG 

88H FOR A FORCED REVERSE 
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REASON 


equ 


OrginalGroup+9 




FLASH COUNTER 




.equ 


OrginalGroup+10 




RadioTypes 




. equ 


OrginalGroup+11 


; Types for one page of tx's 


LIGHT_FLAG 




.equ 


OrginalGroup+12 




CMD_DEB 




. equ 


OrginalGroup+13 




LIGHT_DEB 




. equ 


OrginalGroup+14 




VAC_DEB 




.equ 


OrginalGroup+15 




NextGroup 










SDI SABLE 




. equ 


NextGroup+O 


; system disable timer 


PRADI03H 




. equ 


NextGroup+1 


; 3 mS code storage high byte 


PRADI03L 




. equ 


NextGroup+2 


; 3 mS code storage low byte 


PRADIOIH 




' equ 


NextGroup+3 


; 1 mS code storage high byte 


PRADIOIL 




'. equ 


NextGroup+4 


; 1 mS code storage low byte 


FTO 




'. equ 


NextGroup+5 


; radio time out 


;RFlag 




'. equ 


NextGroup+6 


; radio flags 


EnableWorkLight 


. equ 


NextGroup+6 


; 4-22-97 work light function on 


RINFILTER 




. equ 


NextGroup+7 


; radio input filter 


LIGHT1S 




equ 


Next Group-*- 8 


; light timer for lsecond flash 


DOG2 






NextGroup+ 9 


; second watchdog 


FAULT FLAG 




' equ 
• 


NextGroup+10 


; flag for fault blink, no rad. blink 


MOTDEL 








; motor time delay 


BfpINT DEB 






NextGroup-^12 


; Pass Point debouncer 


DELAYC 




. equ 


NextGroup+13 


; for the time delay for command 


L'_A_C 






NextGroup+1 4 


; Limits are changing register 






. equ 


NextGroup+15 


; Counter compare result 


SACKUP_GRP 






OBOH 




F.CounterA 




. equ 


BACKUP GRP 




ECpunterB 






BACKUP GRP+1 




^CounterC 




.equ 


BACKUP_GRP+2 




P'CounterD 






BACKUP GRP+3 




HOUR TIMER 




.equ 


BACKUP GRP +4 




HGUR_TIMER_HI 


.equ 


BACKUP_GRP+4 




HOUR_TIMER_LO 


. equ 


BACKUP GRP+5 




PassCounter 






BACKUP GRP+6 




S%ACKREASON 




. equ 


BACKUP GRP+7 




SirstRun 




.equ 


BACKUP GRP+8 


; Flag for first operation after power- 


MinSpeed 






BACKUP GRP-^5 




dRPM COUNT 






BACKUP GRP+1 0 




BRPM TIME OUT 




.equ 


BACKUP GRP+1 1 




B FORCE IGNORE 




. equ 


BACKUP GRP+12 




BAUTO DELAY 


. equ 


BACKU 


P_GRFt13 




BCMD DEB 






BACKUP GRP-^14 




BSTATE 






BACKUP GRP^IS 




Double - 


-mapped regi: 


sters for M6800 test 




COUNT HI 




.equ 


BRPM_COUNT 




COUNT_LO 




.equ 


BRPM_TIME OUT 




COUNT 






BFORCE IGNORE 




REGTEMP 




-equ 


BAUTO DELAY 




REGTEMP2 




. equ 


BCMD DEB 





Double-mapped registers for Siminor Code Reception 



CodeTO 


. equ 


COUNT 1L 


; Binary 


radio code received 


CodeTl 


.equ 


RadiolL 






CodeT2 




MirrorC 






CodeT3 


. equ 


MirrorD 






CodeT4 


. equ 


C0UNT3H 






CodeTS 




C0UNT3L 






Ix 




.equ COUNT 1H 




Index per Siminor' s 


KlHigh 


.equ 


AddVaiueH 


; Word 1 


per Siminor' s code 


WILow 




.equ AddValueL 






wlhigh 


. equ 


addvalueh 






wllow 




. equ addvaluel 
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W2High 
W2Low 
v2high 
w21ow 

STACKTOP 
STACKEND 



Radio3H 

.equ Radio3L 

radio3h 

.equ radio31 



• equ 
. equ 



238 
OCOH 



10000000B 



clockh 

clockl 

doh 

dol 

ledh 

ledl 

psmask 

csport 

dioport 

clkport 

ledport 

psport 



equ 01000000B 
clockh 



. equ 

. equ 
.equ 
.equ 



00100000B 
~doh 

00000010B 

-ledh 

01000000B 

P2 

P2 



Word 2 per Siminor': 
; description 



start of the 'stack 
end of the stack 



RS232 input port 
RS232 mask 



; chip select high for the 93c 
; chip select low for 93c4 6 
; clock high for 93c4 6 
; clock low for 93c46 
; data out high for 93c4 6 
; data out low for 93c4 6 
; turn the led pin high "off 
turn the led pin low "on 

; mask for the program switch 
; chip select port 
; data i/o port 
; clock port 
; led port 

; program switch port 



Wf|TCHDOG_GROUP 
pppn 



. equ 

. equ 
. equ 



rl5 

TwoThirtyThree 



PI, #00000001b 



-ENDIF 
.macro 



FILL10 -macrc 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 



FILL10 
FILL10 
FILL10 
FILLIC 
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FILL10 
FILLIO 
FILL10 
FILLIO 
FILLIO 
FILLIO 
. endm 

FILLIOOO -ir 
FILL100 
FILLIOO 
FILLIOO 
FILLIOO 
FILLIOO 
FILLIOO 
FILLIOO 
FILLIOO 
FILLIOO 
FILLIOO 



TRAP 



endm 

TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
TRAP 
.endm 



SetRpToRadio2Group 
.byte 031H 
.byre 080H 



Interrupt Vect- 



.org OOOOH 

.IF TwoThirtyThn 

.word RADIO_INT 

.word OOOCH 

. word RPM 

. word AUX_OBS 

.word TIMERUD 

.word RS232 

. ELSE 



IRQO 

IRQ1, P3.3 

IRQ2, P3.1 

IRQ3, P3.0 

IRQ4, TO 

IRQ5, Tl 



.word RADIO_INT 
.word RADIO_INT 
. word RPM 



IRQO 

IRQ1, P3.3 
IRQ2, P3.1 
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.word AUX_OBS 
.word TIMERUD 
.word OOOCH 



;IRQ3, P3.0 
;IRQ4, TO 
;IRQ5, Tl 



.page 

.org OOOCH 
jp START 



;jmps to start at location 0101, 0202 etc 



RS2 32 DATA ROUTINES 



RS_COUNTER REGISTER: 

0000XXXX - 0011XXXX Input byte counter (inputting bytes 1-4) 
O0XXOOOO Waiting for a start bit 

O0XXO0O1 - XXXX1001 Input bit counter (Bits 1-9, including stop) 
00XX1111 Idle -- whole byte received 

1000XXXX - 1111XXXX Output byte counter (outputting bytes 1-8) 
1XXX0000 Tell the routine to output a byte 

1XXX0001 - 1XXX1001 Outputting a byte (Bits 1-9, including stop) 
1XXX1111 Idle -- whole byte output 



RS_COUNTER, #0000111 IB 
z, OutputStart 



RS_COUNTER, #00001001B 
z, OutputStop 



Check for outputting 



; Check for outputting stop bit 
(bit 9), if so, don't increment 



Output Low : 
and 



RS232DAT 

c, OutputKigh 



DataBitDone 



; Set carry to ensure high stop bit 
; Test the bit for output 



Turn off the pull-up 
Turn on the pull-down 



Tl, #RsPerFull 
TMR, iOOOOlllOB 
p3, #~CKARGE_SW 
P3, #DIS_SW 

RS COUNTER 



iret 
OutputHigh: 
and 

DataBitDone : 



p3, #~DIS_SW 
P3, # CHARGE SW 



Set the timer to a full bit perio 
Load the full time period 
Send a start bit 



Set the counter 



■ first bit 



Turn off the pull-down 

; Turn on the pull-up 



RS COUNTER 



; Advance to the next data bit 



itop (high) bit 
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or RS_COUNTER, #00001111B 

cp RS_COUNTER, illllllllB 

jr nz, MoreOutput 

clr RS COUNTER 



MoreOutput : 
RSExit: 



; Set the flag for word being done 

; Test for last output byte 

; If not, wait for more output 

; Start waiting for input bytes 



RsMode, #00 
nz, InRsMode 
STATUS, # CHARGE 
nz, WallModeBad 



; Check for in RS232 mode, 
If so, keep receiving data 

; Else, only receive data when 
; charging the wall contol 



RS_COUNTER, #11000000B 
nz, OutputMode 



; Test for idle state 

; If so, don't do anything 



; test for input or output mode 



RS_COUNTER, #00001001B 
z, StopBit 



; Check for waiting for start 

; If so, test for start bit 

; Test for receiving the stop bit 

; If so, end the word 

; Initially set the data in bit 

; Check for high or low bit at input 
If high, leave carry high 



P,S 232 DAT 
RS_COUNTER 



; Shift the bit into the byte 
; Advance to the next bit 



3r 
Id 



RS_COUNTER, #11110000B 
nz, IsData 
RSCOMMAND, RS232DAT 



RS_COUNTER, #00001111E 



IsData: 

or 
iret 

WallModeBad: 

clr RS_COUNTER 
DataBad: 

and RS_COUNTER, iOOHOOOOE 



; If we're not reading the first word, 
; then this is not a command 
Load the new command word 

; Indicate idle at end of word 



Reset the RS232 state 



Clear the byte coi 



WaitForStart: 



RS232IP, #RS232IM 



Check for a start bit 
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nz, NoStartBit 

RS_COUNTER 
Tl, #RsPerlP22 
TMR, #00001110B 
Tl, #RsPerFull 



If high, keep waiting 

Set to receive bit 1 

Long time until next sample 

Load the timer 

Sample at IX afterwards 



NoStartBit: 



Tl, #RsPerHalf 



2X for start bit 



Set the worklight timer to 4.5 minutes for 60Hz line 
and 2.5 minutes for 50 Hz line 



SetVarLight : 



ret 

EurjoLight : 



uge, EuroLight 



LIGHT_TIMER_HI , #USA_LIGHT_HI 
L I GHT_T IMER_L0 , #USA_LIGHT_LO 



LIGHT_TIMER_HI , #EURO_LIGHT_HI 
LIGHT_TIMER_LO,#EURO_LIGHT LO 



Test for 50Hz or 60Hz 

; Load the proper table 

set the light period 

Return 

set the light period 



Return 



THIS THE AUXILARY OBSTRUCTION INTERRUPT ROUTINE 



OBS_COUNT ,#11 
imr, #11110111b 
AOBSTEST,#ll 
AOBSF, #00000010B 
AOBSF, #11011111B 



; reset pulse counter (no obstr- 
; turn off the interupt for up 
reset the test timer 

; set the flag for got a aobs 
; Clear the bad aobs flag 
; return from int 



Test for the present 



of a blinker module 



LookForFIasher : 

and P2M_SHADOW, #~BLINK PIN 

Id P2M, P2M_SHAD0W 

or P2, #BLINK_PIK 

or P2M_SHADOW, #BLINK_PIN 

Id P2M, P2M_SHADOW 

ret 

; Fill 41 bytes of unused memor; 

FILL10 
FILL10 
FILL10 
FILL10 
FILL 



Set high for autolatch test 
Look for Flasher module 



REGISTER INITILIZATION 



.org 010IH 

start : 
START: di 

. IF TwoThirtyThri 



; address has both bytes the 
turn off the interrupt for init 



Page 26 of 97 



Id 
Id 

.ELSE 

clr I 

.ENDIF 

WDT 

clr E 



RP, #WATCHDOG_GROUP 
wdtmr, #00001111B 



rc dog lOOmS 



kick the dog 
clear the register 



PORT INITILIZATION 



Id 
Id 



P0,#P01S_INIT 
P2, #P2S_POR 
P3, #P3S_INIT 
P01M, #P01M_INIT 
P3M, #P3M_INIT 

P2M, #P2M_POR 



RESET all ports 

Output the chip ID code 

; set mode p00-p03 out p04-p07in 
; set port3 p30-p33 input analog mode 
; p34-p3"7 outputs 
set port 2 mode for chip ID out 



Internal RAM Test and Reset All RAM = 



#OF0h 
rl5, #4 



wrj:te_agai: 



@rl5,rl4 

rl4, @rl5 

ne, system_error 

rl4 

nc, write_againl 



rl5, #240 

ult, write_agair: 



point to control group use stack 
rl5= pointer (minimum of RAM) 



KICK THE DOG 



/write 1,2,4,8,10,20,40,80 
;then compare 



; write RAM(r5)=0 to memory 



Checksum Test 



CHECKSUMTEST: 
srp 
Id 
Id 

add_sum: 

WDT 

ldc 

add 

decw 

jr 



#CHECK_GRP 
test_adr_hi, #01FH 
test_adr_lo, #0FFH 



rom_data, @test_adr 
check_sum, rom_data 
test_adr 
nz , add_sum 

check_sum, #check sui 



s_ok 



system_error: 



edport, # 
system_er 



.byte 256-check_sum_vaiue 



.-maximum address=fffh 

; KICK THE DOG 
; read ROM code one by one 
;add it to checksum register 
; increment ROM address 
address=0 ? 



check final che 



:ksum = 00 ? 
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SETSTACKLOOP: 



CLEAR DONE : 



STACKEND, #STACKTOP 

eSTACKEND,#01H 
STACKEND 

STACKEND, # STACKEND 
nz, SETSTACKLOOP 



; kick the dog 

start at the top of the stack 

; set the value for the stack vector 
; next address 
test for the last address 
; loop till done 



STATE, #06 

BSTATE,#06 

OnePass, STATE 

STATUS, # CHARGE 

SWITCH_DELAY, #CMD_DEL_EX ; 

LIGHT_TIMER_HI , #USA_LIGHT_HI 

LIGHT_TIMER_LO, #USA_LIGHT_LO 

RPMONES,#24 4 

#LEARNEE_GRP 

learndb, #0FFK 

zzwin, learndb 

CMD_DEE , learndb 

BCMD_DEB, learndb 

VAC_DEB, learndb 

LIGHT_DEE, learndb 

ERASET, learndb 

learnt, learndb 

RTO, learndb 

AUXLEARNSW, learndb ; 
RRTO, learndb 



; set the state to stop 

Set the one-shot 

; set start to charge 

set the delay time to and 

; set the light period 
; for the 4 . 5 min timer 

set the hold off 

set the learn debouncer 

turn off the learning 

; in case of shorted switches 
; in case of shorted switches 



; set the erase timer 
; set the learn timer 
; set the radio time oi 

turn off the aux learn swit 

set the radio timer 



: STACK INITILIZATION 



254 

255, #238 
TwoThirtyThree 



the start of the sti 



TIMER INITILIZATION 



PORT INITILIZATION 



; set the prescaler to /l for 4MHz 
; set the prescaler to /4 for 4MHz 
; set the counter to count FF through 0 
the period to rs232 period for start bit sample 
; turn on the timers 



P0,#P01S_INIT 
P2,#P2S_INIT 
P3,#P3S_INIT 
P01M, #P01M_INIT 
P3K, #P3K_INIT 

P2M SHADOW, #?2M : 



TwoThirtyThree 



RESET all ports 



,- set mode p00-p03 out p04-p07in 
; set port3 p30-p33 input analog mode 
; p34-p37 outputs 
; Shadow P2K for read ability 
set port 2 mode 
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clr PI 
. ENDIF 

; READ THE MEMORY 2X AND GET THE VACFLAG 

Id SKIPRADIO, #NOEECOMM ; 

Id ADDRESS, #VACATlONADDR ; set non vol address to the VAC flag 

call READMEMORY ; read the value 2X IX INIT 2ND read 

call READMEMORY ; read the value 

Id VACFLAG, MTEMPH ; save into volital 

WakeUpLimits : 

Id ADDRESS, #UPLIMADDR ; Read the up and down limits into memory 

call READMEMORY 

Id UP_LIMIT_HI, MTEMPH 

Id UP_LIMIT_LO, MTEMPL 

Id ADDRESS, #DNLIMADDR ; 

call READMEMORY 

Id DN_LIMIT_HI, MTEMPH 

]}£ Id DN_LIMIT_LC, MTEMPL ; 

WDT ; Kick the dog 
WakeUpState : 

Id. ADDRESS, # LAS T STATE AD DR ; Read the previous operating state into 

call READMEMORY 

Id STATE , MTEMPL ; Load the state 

Id PassCounter, MTEMPH ; Load the pass point counter 

= cp STATE, #UP_POSITION ; If at up limit, set position 

jr z, WakeUpLimit 

cp STATE, #DN_POSITION ; If at down limit, set position 

jr z, WakeDnLimit 

WakeUpLost: 

Id STATE, #STOP • Set state as stopped in mid travel 

Id POSITION_HI, #07 FH ; Set position as lost 

Id POSITION_LO, #08 OK 

jr GotWakeUp 

WakeUpLimit : 

Id POSITION_HI, U?_LIKIT_H: ; Set position as at the up limit 

Id POSITION_LC, UP_LIMIT_L0 

jr GotWakeUp 

WakeDnLimit: 

Id POSlTlON_HI, DN_LIMit_hi ; Set position as at the down limit 

Id POSITION_LO, DN_LIMIT_LO 

GotWakeUp: 

Id BSTATE, STATE ; Back up the state and 

Id OnePass, STATE ; clear the one-shot 

; SET ROLLING/ FIXED MODE FROM NON- VOLATILE MEMORY 

call SetRadioMode ; Set the radio mode 

jr SET INTERRUPTS ; Continue on 

SetRadioMode : 

Id SKIPRADIO, #NOEECOMM ; Set skip radio flag 

Id ADDRESS, #MODEADDR ; Point to the radio mode flag 

call READMEMORY ; Rea d the radio mode 

Id RadioMode, MTEMPL ; set the proper radio mode 
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clr 
tm 
jr 

call 



SKIPRADIO 

RadioMode, #ROLL_MASK 
nz, StartRoll 

FixedNums 



Re-enable the radio 

Do we want rolling number 



; INITERRUPT INITILIZATION 
SETINTERRUPTS : 



Id 


IPR, #00011010B 


; set the priority to timer 


Id 


IMR, #ALL_ON_IMR 


; turn on the interrupt 


. IF 


TwoThirtyThree 




Id 


IRQ,#01000000B 


; set the edge clear int 


. ELSE 






Id 


IRQ, #00000000b 


; Set the edge, clear ints 


. ENDIF 







; enable interrupt 



RESET SYSTEM REG 



RP, #WATCHDOG_GROUP 
smr, #00100010B 
peon, #01111110B 



reset the xtal / number 

reset the peon no comparator output 

no low emi mode 

Reset the RP 



. ENDIF 

PREO, #00000101B 



set the prescaler 

Kick, the dog 



i / 1 for 4Mhz 



MAIN LOOP 
MAINLOOP: 



PassPointChanged : 



SKIPRADIO, #NOEECOMM 
ADDRESS, ILASTSTATEADDR 
READMEMORY 



; Compare pass point counts 
;If equal, EEPROM is up to date 



; Disable radio EEPROM communications 
; Point to the pass point storage 
; Get the current GDO state 
; Lock in the pass point state 
Store the current pass point state 
; Clear the one- shot 



it back to the EEPROM 



PassPointCur: 
; 4-22-97 
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GetRidOflt: 



EnableWorkLight, #10000000B ;is the debouncer set? if so write and 
;give feedback 

NE.LightOpen 
pO, #LIGHT_ON 
NZ, GetRidOflt 
MTEMPL, #0FFH 
MTEMPH, # OFFH 
CommitToMem 



CommitToMem: 



CALL 
CLR 
XOR 



;turn on the IR beam work light function 



MTEMPL, #00H 
MTEMPH, #O0H 

SKIPRADIO, #NOEECOMK 
ADDRESS, # IRLIGHTADDR 
WRITEMEMORY 
SKIPRADIO 
pO, #WORKLIGHT 

EnableWorkLight, #01100000B 



turn off the IR beam work light functi< 



; to memory to store if enabled or not 
;set address for write 



toggle current state of work light for feedback 



cp 


LIGHT_TIMER_HI, #OFFH 


jr 


nz , TestBeamEreak 


tm 


pO, #LIGHT_ON 


jr 


nz, LightSkip 


5!e s tBeamB r e a k 




tm 


AOBSF, ilOOOOOOOb 


jr 


2 , LightSkip 


,-.4-22-97 




LD 


SKIPRADIO, #NOEECOKM 


LD 


ADDRESS, fIRLIGHTADDR 


CALL 


READMEMORY 


CLR 


SKIPRADIO 


CP 


MTEMPL, # DISABLED 


JR 


EQ, LightSkip 


cp 


STATE , # 2 




nz, LightSkip 


call 


SetVarLight 




pO, #LIGHT_ON 


LightSkip: 




,-4-22-97 




AND 


AOBSF, #01111111B 


cp 


HOUR_TIMER_HI, #01CH 


jr 


ult, NoDecrement 


cp 


HOUR_TIMER_LO, #02 OK 


jr 


ult, NoDecrement 


clr 


HO'JR_TIMER_HI 


clr 


HOUR_TIMER_LO 


Id 


SKIPRADIO, #NOEECOM™ 


Id 


ADDRESS, #DURAT 


call 


READMEMORY 


cp 


MTEMPH, # HOURS 


jr 


nz, NoDecrement2 


cp 


MTEMPL, #00 


jr 


z, NoDecrement2 


dec 


MTEMPL 


call 


WRITEMEMORY 



; if light timer not done test beam break 
if the light is off test beam break 



; Test for broken beam 
if no pulses Staying blocked 

; else we are intermittent 

Trun off radio interrupt to read from e2 

; don't forget to zero the one shot 
;Does e2 report that IR work light functii 
is disabled? IF so jump over light on and 

; test for the up limit 
if not goto output the code 

; Set worklight to proper time 
turn on the light 



; If an hour has passed, 

; then decrement the 

; temporary password tiim 



; Disable radio EE read 

; Load the temporary password 

; duration from non-volatile 

; If not in timer mode, 

; then don't update 

; If timer is not done, 

; decrement it 



Update the number of hour: 



NoDecrement : 



AOBSF, #01000000b 
z, NoDecrement2 



; If the poll radio mode flag is 
; set, poll the radio mode 
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Set the radio mode 

; Clear the flag 



NoDecrement2 : 



SKIPRADIO 

AOBSF,#00100011b 

DOG2 

P01M,#P01M_INIT 
P3M, #P3M_INIT 

P2M_SHADOW, #F2M_ALLINS 
P2M_SHADOW, #P2M_ALLOUTS 
P2M, P2M_SHADOW 
VACCHANGE, #0AAH 
nz,NOVACCHG 
VACFLAG, #0FFH 
z , MCLEARVAC 
VACFLAG, #OFFH 
SETVACCHANGE 



MCLEARVAC : 



V call 
^NOVACCHG: 



Re-enable radio reads 
Clear the single break flag 
clear the second watchdog 
set mode p00-p03 out p04-p07in 
set port3 p30-p33 input analog mode 
p34-p37 outputs 

Refresh all the P2M pins which have are 
always the same when we get here 
set port 2 mode 

test for the vacation change flag 
change the skip 

st for in vacation 
. vac clear 

:t vacation 
set the change 



SETVACCHANGE: 



VACFLAG 
VACCHANGE 

SKIPRADIO, #NOEECOMM 
ADDRESS, #VACATIONADDR 
MTEMPH, VACFLAG 
MTEMPL, VACFLAG 
WRITEMEMORY 
SKIPRADIO 



L_A_C, #07 OH 

uge, SkipReadLimits 

STATE, #UP_DIRECTION 
z, ReadUpLimit 



; clear vaca' 



Lon mode 



; one shot 

; set skip flag 

; set the non vol address 

; store the vacation flag 

:e the value 



test for the change flag 
if no change skip updatim 



If we are going to travel up 
then read the up limit 



:o the VAC flag 



SkipReadLimit 



; No limit on this 



SKIPRADIO, #NOEECOMM 
ADDRESS, #UPLIMADDR 
READMEMORY 



; Skip radio EE PROM reads 
Read the up limit 



add 
adc 

CalcMaxLoop: 



UP_LIMIT_HI, MTEMPH ; 
UP_LTMIT_LO, MTEMPL 
FirstRun 
MTEMPL, #10 
MTEMPH, #00 

FirstRun 

MTEMPL, #LOW(PPOINTPULSES) ; 
MTEMPH, #HIGH(PPOINTPULSES) 
nc, CalcMaxLoop 



Calculate the highest possible value for pas 
Bias back by 1" to provide margin of error 



Count pass points until value goes pcsitiv. 



SKIPRADIO 

PassCounter, #01000000b 
z, CounterGoodl 

DN LIMITHI, #HIGH(PPOINTPULSES ■ 



ugt 



CounterlsNegl 



Test for a negative pass point counter 
If not, no lower bounds check needed 

35) ; If the down limit is low enough, 

:he counter can be negative 
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ClearCount: 
and 



ult, ClearCount ; EI 

DN_LIMIT_LO, #LOW(PPOINTPULSES - 35) 
uge, CounterlsNegl ; 

PassCounter, #10000000b 



it should be zero 



CounterlsNegl : 



CounterGoodl : 



TestUpLimit2 : 



PassCounter, #01111111b 

UP_LIMIT_HI, #0FFH 
nz, TestUpLimit2 
UP_LIMIT_LO, #0FFH 
z, LimitlsBad 
LimitsAreDone 

UP_LIMIT_HI, #0D0H 
ule, LimitlsBad 
LimitsAreDone 



Reset the pass point counter to zero 



Set the pass point counter to 



Test to make sure up limit is at 
; a learned and legal value 



Look for up limit set to illegal value 
; If so, set the limit fault 



ReadDnLimit 



Id 



SKIPRADIO, #NOEECOMM 
ADDRESS, #DNLIMADDR 
READMEMORY 



= Yl clr SKIPRADIO 

;=--. cp DN_LIMIT_HI , #00H 

jr nz, TestDownLimit2 

* l * cp DN_LIMIT_LO, #00K 

jr z, LimitlsBad 

\ \ jr LimitsAreDone 

TestDownLimit2 : 

]f : cp DN_LIMIT_HI, #020H 

\-i jr ult, LimitsAreDone 

LimitlsBad : 

y-\ Id FAULTCODE , #1 

'"l call SET_STOP_STATE 

jr LimitsAreDone 



; Test to make sure 
learned and legal valu< 



r down 1 ir 
proceed c 



Set the "no limits" fault 
; Stop the GDO 



SKIPRADIO, #NOEECOMM 

ADDRESS, #LASTSTATEADDR 

READMEMOF.Y 

MTENPH, PassCounter 

MTEMPL, STATE 

WRITEMEMORY 

SKIPRADIO 



Turn off the radio read 

Write the current state and pass 



DON'T update the pass poii 



Id 



OnePass, STATE 



cp L_A_C, #077H 

jr nz, DontWrite: 

WriteNewLimits : 

cp STATE, #STOP 



cp 



nz, WriteUpLimit 
LIM_TEST_HI, #00 
nz, WriteUpLimit 
L I M_T E S T_L0 , #0 6 
ugt, WriteUpLimit 



SKIPRADIO, 



I, #00 
#NOEECOMM 



; Clear the one-shot 

Test for successful lean 
If not, skip writing lim: 



Test for (force) stop within 0.5" of 
the original up limit position 



■ack off the up lii 



Skip radio EE PROM reads 
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Id 


ADDRESS, #UPLIMADDR 


di 




Id 


MTEMPH, UP_LIMIT HI 


Id 


MTEMPL, UP_LIMIT_LO 


ei 




call 


WRITEMEMORY 


WriteDnLimit 




Id 


ADDRESS, #DNLIMADDR 


di 




Id 


MTEMPH, DN_LIMIT HI 


Id 


MTEMPL, DN_LIMIT LO 


ei 




call 


WRITEMEMORY 


WritePassCount : 


Id 


ADDRESS, #LASTSTATEADDR 


Id 


MTEMPH, PassCounter 


Id 


MTEMPL, STATE 


call 


WRITEMEMORY 


clr 


SKIPRADIO 


clr 


L_A_C 




ledport, #ledh 


DontWriteLimits : 




§LEARNEE GRP 


clr 




Id 




Id 


address, #CYCCOUNT 


call 


READMEMORY 








nz, COUNTER1DONE 


inc 


mtemph 


jr 


n z , COUNTER2 DONE 


call 


WRITEMEMORY 


inc 


address 


call 


READMEMORY 




mtempl 


jr 


nz, COUNTER2DONE 


inc 


mtemph 


COUNTER2 DONE 




call 


WRITEMEMORY 


Id 


address, #CYCCOUNT 


call 


READMEMORY 


and 


mtemph, #00001111B 


or 


mtemph, #3 OH 


Id 


ADDRESS, MTEMPH 


Id 


mtempl , DN FORCE 


Id 


mtemph, UP FORCE 


call 


WRITEMEMORY 


jr 


CDONE 


C0UNTER1D0NE: 




call 


WRITEMEMORY 


CDONE : 




clr 


SKIPRADIO 


NOCHANGEST : 




call 


LEARN 


di 




cp 


BRPM_COUNT,RPM COUNT 


jr 


z, TESTRPM 


RESET: 




jp 


START 


TESTRPM: 





Read the up limit 



Read the up limit 



; Write the current state and pass count 
Update the pass point 



Leave the learn mode 
turn off the LED for program mode 



set the register pointer 

; clear the flag 

; set skip flag 

; set the non vol addre: 

; read the value 
increase the counter lower byte 



to the cycle c 



; increase the counter high byte 

store the value 

; get the next bytes 

; read the data 
increase the counter low byte 

increase the vounter high byte 

save the value 

; read the data 

find the force address 

; set the address 
; read the forces 

write the value 

done set the back trace 

got the new address 

; clear skip flag 

; do the learn switch 



BRPM_TIME_OUT, RPM TIME OUT 
nz, RESET ~ 
BFORCE_IGNORE, FORCE_IGN0RE 
nz, RESET 
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TESTRS232 : 
SRP 
tern 



BAUT 0_DE LAY , AUTO_DELAY 

nz, RESET 

BCMD_DEB, CMD_DEB 

nz , RESET 

BSTATE, STATE 

nz, RESET 



#TIMER_GROUP 
RS_COUNTER, #000011113 
nz, SKIPRS232 



rscommand, # *V 
ugt, ClearRS232 
rscommand, # ' 0 ' 
ult,ClearRS232 
rscommand, # ' < ' 
nz,NotRs3C 
GotRs3C 
SKIPRS232 



; If we are at the end ■ 
then handle the RS232 word 



test for in range 
if out of range skip 
If we are reading 
go straight there 



rscommand, # ' : 
nz,NotRs3E 
GotRs3E 
SKIPRS232 



we are writing EE PROM 
straight there 



add 
adc 
call 



rs_temp_hi, #HIGH (RS232 JumpTable- (3* ■ 
rs__temp_lo, #LOW (RS232 JumpTable- (3* ' 0 

rs_temp_lo, rscommand 
rs_temp_hi, #00 
rs_temp_lo, rscommand 
rs_temp_hi, #00 
rs_temp_lo, rscommand 
rs_temp_hi , #00 
@rs_temp 
SKIPRS232 



; address pointer to table 
; Offset for ASCII adjust 

look up the jump 3x 

look up the jump 3x 

look up the jump 3x 

call this address 
done 



GotRs31 
GotRs32 
GotRs33 
GotRs34 
GotRs35 
GotRs36 
GotRs37 
GotRs38 
GotRs39 
GotRs3A 
GotRs3B 
GotRs3C 
GotRs3D 
GotRs3E 
GotRs 3F 
GotRs 4 0 
GotRs 41 
GotRs 4 2 
GotRs 4 3 
GotRs 4 4 
GotRs 4 5 
GotRs4 6 
GotRs 4 7 
GotRs4S 
GotRs 4 9 
GotRs 4 A 
GotRs4E 
GctRs4C 
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jp GotRs4D 

jp GotRs4E 

jp GotRs4F 

jp GotRs50 

jp GotRs51 

jp GotRs52 

jp GotRs53 

jp GotRs54 

jp GotRs55 

jp GotRs56 

ClearRS232: 

and RS_COUNTER, #llllOOOOb clear the RS232 state 

SKIPRS232: 

UpdateForceAndSpeed : 

; Update the UP force from the look-up table 

srp #FORCE_GROUP ; Point to the proper registers 

Id force_add_hi, #HIGH (f orce_table) ; Fetch the proper unsealed 

Id force_add_lo, #LOW ( f crce_table ) ; value from the ROM table 
di ; 

add f orce_add_lo, upforce ; Offset to point to the 

adc force_add_hi, #00 ; proper place in the table 

add f orce_add_lo, upforce ; x2 

adc force_add_hi, #00 

add force_add_lo, upforce ; x3 (three bytes wide) 

adc force_add_hi, #00 ; 
ei ; 

ldc f orce_temp_of , @fcrce_add ; Fetch the ROM bytes 

incw force_add 

ldc f orce_temp_hi , @force_add ; 

incw force_add ; 

ldc force_temp_lo, @force_add ; 

Id Divisor, PowerLevel ; Divide by our current force level 

call ScaleTheSpeed ; Scale to get our proper force numbe] 

di ; Update the force registers 

Id UP_FORC£_HI, force_temp_hi 

Id UP_FORCE_LO, f orce_temp_lo 

; Update the DOWN force from the look-up table 

Id f orce_add_hi, #HIGH ( f orce_table j ; Fetch the proper unsealed 

Id f orce_add_lo, #LOW ( f orce_table) ; value from the ROM table 
di 

add f orce_add_lc, dnforce ; Offset to point to the 

adc force_add_hi, #00 ; proper place in the table 

add force_add_lo, dnforce ; x2 

adc force_add_hi, #00 

add f orce_add_lo, dnforce ; x3 (three bytes wide) 

adc force_add_hi, #00 

ei 

ldc force_teirtp_of , @force_add ; Fetch the ROM bytes 

incw force_add ; 
ldc f orce_temp_hi, @force_add ; 
incw force_add 

ldc fcrce_temp_lc, @force_add ; 

Id Divisor, PowerLevel ; Divide by our current force level 

call ScaleTheSpeed ; Scale to get our proper force numbe 
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DN_FORCE_HI, f orce_temp_hi 
DN_FORCE_L0, f orce_temp_lo 



Update the force registers 



; Scale the minimum speed based 
cp STATE, # DN_D I RE CT I ON 

jr z, SetDownMinSpeed 

SetUpMinSpeed : 
di 

Id MinSpeed, UPFORCE 

jr MinSpeedSdath 
SetDownMinSpeed: 
di 

Id MinSpeed, DN FORCE 
MinSpeedMath: 

sub MinSpeed, #24 
jr nc, UpStep2 

MinSpeed 



on force setting 

; If we're traveling down, 
; then use the down force pot for min. speed 

; Disable interrupts during update 
; Scale up force pot 



Scale down force pot 



pot level - 24 

; truncate off the negative number 



UpStep2: 



rcf 



IlfinSpeedOkay : 



MinSpeed 

MinSpeed 
MinSpeed, 
MinSpeed, 
ule, MinSpeedOkay 
MinSpeed, #12 



#12 



the 



rorklight 



LinePer, #36 

ult, TestRadioDeadTime 

LIGHT_TIMER_H1, #0FFH 

z, TestRadioDeadTime 

LIGHT_TIMER_HI, #EURO_LIGHT_HI 

ule, TestRadioDeadTime 

SetVarLight 



TestRadioDeadTime : 



R_DEAD_T I ME , i 

nz,MAINLOOP 

RadioC 

RFlag 

MAINLOOP 



Divide by four 



Add four to find the minimum speed 
Perform bounds check on minimum speed,, 
; Truncate if necessary 



; Re-enable interrupts 
r time on power-up 

Test for a 50 Hz system 

; if not, we don't have a problei 
; If the light timer is running 
; and it is greater than 

the European time, fix it 



test for too long dead 

clear the radio counter 
clear the radio flag 
loop forever 



Speed scaling (i 



ScaleTheSpeed : 
clr 



TestReg 
loopreg, #24 



f o r c e_t emp_l o 
f orce_temp_hi 
force_temp_of 
TestReg 

TestReg, Divisor 

ult, Ei-IsDone 

TestReg, Div^scr 

f orce_temp_lo, #00000001b 



loopreg , 



Loop for all 24 bits 



; Rotate the next bit into 
the test field 



; Test to see if we can subtract 
; If we can't, we're all done 
; Subtract the divisor 
Set the LSB to mark the subtract 



Loop for all bits 
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DivideDone: 

; Make sure the result is under < 

cp force_temp_of , #00 

jr nz, ScaleDown 

cp force_temp_hi r #0F4H 

jr ugt, ScaleDown 

jr ult, DividelsGood 

cp f orce_temp_lo, #024H 

jr ugt, ScaleDown 

DividelsGood: 
ret 

ScaleDown: 

Id force_temp_hi, #0F4H 

Id f orce_temp_lo, #024H 



■ 500 ms limit 

; Overflow byte must be zero 



; If we're less, then we're okay 
; Test low byte 
; if low byte is okay, 



Number is good 

Overflow is never used anyway 



RS232 SUBROUTINES 



Set Command Switch 
GotRs 3 0 : 

Id LAST CMD, #0AAH 



; set the last command as rs wall cmd 
set the command switch 



7 Clear Command Switch 

GotRs31: 

call CmdRel 
jp NoPos 



release the command switch 



Set Worklight Switch 
GotRs32: 

call LightSet 
jp NoPos 

; "3" 

; Clear Worklight Switch 

GotRs 33: 

clr LIGHT_DEB 
jp NoPos 



set the light switch 



Release the light switch 



; Set Vacation Switch 

GotRs 3 4 : 

call VacSet 
jp HoPos 



; Clear Vacation Switch 

GotRs 3 5: 

clr VAC_DEB 
jp NoPos 



release the vacation 



; Set smart switch 
GotRs36: 

call SmartSet 
jp NoPos 
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call SmartRelease 
jp NoPos 



. ,.g„ 

; Return Present state and reason for that state 
GotRs38 : 

Id RS232DAT, STATE 

or RS232DAT, STACKREASON 

jp LastPos 

; Return Force Adder and Fault 
GotRs3 9: 

Id RS232DAT, FAULTCODE ; insert the fault code 

jp LastPos 



RS232DAT 

P2, #01000000b 

z, LookForBlink 

RS232DAT, #00000001b 



L«pokForBlink : 
call 



LookFor Flasher 
P2, #BLINK_PIN 
nz, ReadLight 
RS232DAT,#00000010b 



PO, #00000010B 
z, C3ADone 

RS232DAT,#00000100b 



CodeFlag, #REGLEARN 
ult, LookForPass 
RS 232 DAT , #00010000b 



LookForPass : 



PassCounter, #01111111b 
z, LookForProt 
PassCounter, #01111 111b 
z, LookForProt 
RS232DAT,#00100000b 



LookForProt : 



LookForVac: 



AOBSF, #10000000b 
nz, LookForVac 
RS232DAT, #01000000b 



VAC FLAG, #00B 
nz, LastPos 
RS232DAT, #00001000b 
LastPos 



; Return L_A_C 
GctRs3B: 

Id RS232DAT, L_A_C 

jp LastPos 



Check the strap 

If none, next check 

Set flag for strap high 



; If flasher is present, 
then indicate it 



read the light 



; Check for protector break/block 
; If blocked, don't set the flag 
Set flag for protector signal good 



for the vacation mode 



read the LAC 
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; Read a word of data from an EEPROM address input by the user 
GotRs3C: 

cp RS_COUNTER, #01 OH 

jr ult, FirstByte 

cp RS_COUNTER, #08 OH 

jr ugt, OutputSecond 



SecondByte: 



SKIPRADIO, iOFFH 

ADDRESS, RS232DAT 

READMEMORY 

RS 2 3 2 DAT , MTEMPH 

RS_TEMP_LO, MTEMPL 

SKIPRADIO 

MidPos 



OutputSecond: 



; If we have only received the 

; first word, wait for more 

; If we are outputting, 

; output the second byte 



Store into temporary registers 



Output the second byte of the read 



^EirstByte : 

inc RS COUNTER 



Set to recei- 



: second word 



} "=•• 

; Exit learn limits mode 
sGotRs3D: 

cp L_A_C, #00 

jp 2, NoPOS 

clr L_A_C 

or ledport, #ledh 

jp NoPos 



; If not in learn mode, 

; then don't touch the learn LED 

; Reset the learn limits state machii 

off the LED for program mode 



RS_COUNTER, #01FH 
z, SecondByte W 
RS_COUNTER, #02FK 
z, ThirdByteW 
RS_COUNTER, #03FH 
z, FourthByteW 



RS COUNTER 



RS_TEMP_HI, RS232DAT 
DataDone 



; Store the address 



RS_TEMP_LO, RS232DAT 
DataDone 



Store the high byte 



RS_TEMP_HI, #03FH 
ugt, FailedWrite 
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call 
clr 



SKIPRADIO, #0FFH 
ADDRESS, RS_TEMP_HI 
MTEMPH, RS_TEMP_LO 
MTEMPL, RS2 32DAT 
WRITEMEMORY 
SKIPRADIO 
RS232DAT, #00H 
LastPos 



; Turn off radio reads 
Load the address 
and the data for the 

; EE PROM write 

; Re-enable radio reads 
; Flag write okay 



FailedWrite: 



; Flag bad write 



; Suspend all communicati* 
GotRs3F: 

clr RSCOMNAND 



; Throw out any command currently 
; running 

; Ignore all RS232 data 



STATE, #DN_DIRECTION 
z, dontup 
STATE, #AUTO_REV 
Z, NoPos 

STATE, #UP_POSITION 
z, NoPos 
REASON, #00H 
SET_U P_DI R_STATE 
NoPos 



; If traveling down, make sure that 
; the door autoreverses first >. 
; If the door is autoreversing or 
; at the up limit, don't let the 
up direction state be set 

Set the reason as command 



REASON, #00K 

SET_AREV_STATE 

NoPos 



. M A ., 

!-£ Force Down State 
GotRs41: 

cp STATE, #5h 

jp z, NoPos 



clr 



REASON 

SET_DN_DIR_STATE 
NoPos 



; test for the down position 
Set the reason as command 



; Force Stop State 
GotRs4 2: 

clr REASON 

call SET_STOP_STATE 

jp NoPos 



Set the reas 



i as command 



; Force Up Limit State 
GotRs43: 

clr REASON 

call SET_UP_POS_STATE 

jp NoPos 



Set the reason as command 



; "D" 

; Force Down Limit State 
GctRs4 4 : 

clr REASON 

call SET_DN_POS_STATE 

jp NoPos 



Set the reason as command 
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; Return 
GotRs45: 



el 



. force during tr, 

RS 2 3 2 DAT , M IN_RPM_H I 

RS_COUNTER, # 0 9 Oh 

ult,MidPos 

RS 2 3 2 DAT , M IN_R PM_LO 



Return high and low 

; bytes of min. force read 



all control switches 



RsMode 

STATUS, # CHARGE 

RS_COUNTER 

rs command, #OFFH 



Exit the rs232 mode 

; Scan for switches again 
; Wait for input again 
; turn off command 



-(No Functio: 



• pass point the setup for the door 



SKIPRADIO, # OFFH 
MTEMPH, #0FFH 
MTEMPL, # OFFH 
ADDRESS, iUPLIMADDP. 
WRITEMEMORY 
ADDRESS, #DNLIMADDR 
WRITEMEMORY 

UP_LIMIT_HI, #HIGH(SetupPos) 

UP_LIMIT_LO, #LOW(SetupPos) 

POSITION_HI, #04 OH 

PassCounter, #10000000b 

SET_UP_DIR_STATE 

OnePass, STATE 

NoPos 



; Disable radio EEPROM reads 
Erase the up limit and down limit 
in EEPROM memory 



; Set the door to travel 
; to the setup position 
Set the current position to unknown 
; Reset to activate on fir 
; Force the door to travel 
; without a limit refresh 



pass point seen 



timer 



RS232DAT 
RTO, #RDROPTIME 
uge, LastPos 
RS232DAT 



; Initially say no radii 
; If there's no radio o: 
i broadcast that 
; Set data to FF 



; Return 
GotRs4A: 



position 

RS232DAT, POSITION_HI 
RS_COUNTER, #090H 
ult,MidPos 

RS232DAT, POSITION LC 



; Test for no words out yet 
; If not, transmit high byte 



; Set radio Received 
GotRs4B: 

cp L_A_C, #07 OH 



If we were posi- 



ioning the up limit, 
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ReLearnRS : 
Id 

call 
jP 

FirstRSLearn: 



ult, NormalRSRadio" 
z, FirstRSLearn 
L_A_C, #071H 
nz, NoPos 

L_A_C, #07 2H 
S ET_U P_D I R_STATE 
NoPos 

L_A_C, #07 3H 

SET_UP_POS_STATE 

NoPos 

LAST_CMD 
RADI0_CMD, #0AAH 
NoPos 



chen start the learn cycle 



If we had an error, 

; re-learn, otherwise ignore 



Set the re-learn state 



Set the learn state 

; Start from the "up limit" 



mark the last command as radio 
set the radio command 
return 



orklight for any code 



RTO 

CodeFlag, #SENS_TEST 
NoPos 



Reset the drop-out timer 
Set the flag to test sens 



l-il "N" 

,- If we are within the fi 
W then echo the nybble on 
; ; (A.K.A. The 6800 test) 
i£3otRs4E : 



seconds and RS232 mode is ] 
P33 on all other nybbles 



. yet enabled. 



cp 



COUNT_HI, #002K 

COUNT_L0 

P01M, #00000100b 

P2M, #00000000b 

P3M, #00000001b 



If the 4 second init timer 

; is done, don't do the test 

; Shut down all other GDO operations 
; Set up to loop for 512 iterations, 
; totaling 13.056 milliseconds 
; Set all possible pins of micro. 
; to outputs for testing 

; Kick the dog 



REGTEMP 
REGTEMP2, P3 
REGTEMP2, #00001111b 
REGTEMP, REGTEMP2 
REGTEKP2 

REGTEMP, REGTEMP 2 
P0, REGTEMP 
P2, REGTEMP 
P3, REGTEMP 
COUNT 

nz, TimingLoop 
START 



; Create a byte of identical nybble 
from P30 - P33 to write to all ports 



Echo the nybble to all ports 

Loop for 512 iterations 
When done, reset the system 



RS232DAT, P32_MAX_HI 
RS_COUNTER, #0 90h 
ult,MidPos 



; Return high and low 

; bytes of max. force read 
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RS232DAT, P32_MAX_LO 
LastPos 



; Return address of last mercery matching 

; radio code received 

GotRs51: 



Send back the last matching address 



,* Set Rs232 mode — No ultra board prese: 
; ^.Return Version 
GptRs52 : 

; clr UltraBrd 

SetIntoRs232: 

Id RS232DAT, #VERSIONNUM 

cp RsMode,#00 

jr ugt, LockedlnNoCR 

Id RS232DAT, #0BBH 

LockedlnNoCR: 

Id RsMode,#32 
jr LastPos 



Clear flag for ultra board present 

Initially return the version 

If this is the first time we're 

locking RS232, signal it 

Return a flag for initial RS232 lock 



i Set Rs232 mode — Ultra board present 

; Return Version 

GotRs53: 



; Range test -• 
; is received 
GotRs54 : 



rklight whenever a good 



-matching code 



RTO 

CodeFlag, #RANGETES? 
NoFos 



; "U" 

; (No Function) 
GotRs55: 



alues of up and down force pots 



Reset the drop-out t: 
Set the flag to test 



RS232DAT,UPFORCE 
RS_COUNTER, #C90h 
ult,MidPos 
RS232DAT, DN FORCE 
LasrPos 



Return values 
force pots . 



of up and down 



Set the output mode 
Transmit the next byte 
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ExitNoTest : 
clr 



RS_COUNTER, #111100003 
rscommand, #0FFH 
RSDone 



RS_COUNTER 
rscommand, #0FFH 

RsMode,#32 
STATUS , #RSSTATUS 
P3, #CHARGE_SW 
P3, #~DIS SW 



; set the start flag for last byte 
; Clear the command 



Wait for input aga: 
turn off command 



Set the wall control ■ 
Turn on the pull-ups 



Radio interrupt from a edge of the radio signal 



KftDIO_INT: 
srp 



#RadioGroup 

rtemph, TOEXT 

rtempl, TO 

IRQ, #00010000B 

z , RTIMEOK 

rtempl, #10000000B 

z, RTIMEOK 

rtemph 

R_DEAD_T IME 

TwoThirtyThree 
I MR, tlllllllOB 

IMR, #111111008 



; save the radio pair 

; set the register pointer 

read the upper byte 

; read the lower byte 
; test for pending int 
; if not then ok time 

test for timer reload 

; if not reloaded then ok 

xf reloaded then dec high for sync 

; clear the dead time 



turn off the radio interrupt 
Turn off the radio interrupt 



sub 

sbc 

RTIMEDONE: 



INACTIVETIME : 



GO INACTIVE : 



RTimeDH, RTimePH 
RTimeDL, RTimePL 
RTimeDL, rtempl 
RTimeDH, rtemph 

P3, #00000100B 
nz, ACT I VET IME 

RINFILTER, #0FFH 

Z,GOINACTIVE 

RADIO_EXIT 



; find the difference 

; in past time and the past time in temp 



test the port for the edge 

if it was the active time then branch 



; test for active la: 
if so continue 

; if not the return 



.IF 


TwoThirtyThree 


or 


IRQ,#01000000B 


. ENDIF 




clr 


RINFILTER 


Id 


rtimeih, RTimeDH 


Id 


rtimeil, RTimeDL 


Id 


RTimePH, rtemph 


Id 


RTimePL, rtempl 


CP 


radioc, #01H 


JP 


NZ, RADIO EXIT 



the bit setting direc 



set flag to inactive 
transfer difference to : 



transfer temp into the past 



; inactive time after sync bit 
;exit if it was not sync 
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RadioMode, #ROLL MASK 



FixedBlank: 



ACT I VET IME : 



GOACTIVE: 



FixedBlank 
rtimeih, #0AH 
ULT,RADIO_EXIT 
radioc 
RADIO_EXIT 



rtimeih, #014H 
ULT,RADIO_EXIT 
radioc 

RADIO_EXIT 

RINFILTER, #00H 
z, GOACTIVE 
RADIO EXIT 



;If in fixed mode, 



;no number counter exists 

; 2. 56ms for rolling code mode 

; pulse ok exit as normal 
;if pulse is longer, bogus sync, 
; return 



restart sync search 



; test for the max width 5.16ms 
; pulse ok exit as normal 
;if pulse is longer, bogus sync, restart sync search 



; test for active last tii 
; if so continue 
; if not the return 



TwoThirtyThree 
IRQ, iOOllllllB 



; clear bit setting di: 



to neg edge 



GotBothEdges : 



. IF Use: 
D 

.ENDIF 



BlankSkip: 
SyncOk: 



RINFILTER, # OFFH 
rtimeah, RTimeDH 
rtimeal,RTimeDL 
RTimePH, rtemph 
RTimePL, rtempl 



radioc, #1 
ugt, INSIG 
or 

z, CheckSiminor 
radioc 

RFlag, #00100000B 
NZ, BlankSkip 

RadioTimeOut, #10 
ult , Clear Jump 

RFlag, #0C100000E 

rtimeah, #00h 



; transfer difference to active 
; transfer temp into the past 

; enable the interrupts 

; test for the blank timing 

; if not then in the middle of signal 

; Test for a Siminor tx on the first b. 

set the counter to the next number 

;Has a valid blank time occured 



; test for the min 10 ms blank til 
if not then clear the radio 



first the min sync 

; if high byte 0 then clei 



the radio 



RadioMode, #ROLL_MASK 
2, Fixedsync 

rtimeah, #09h ;time fi 

uge, JustNoise 
SET1 



; checking sync pulse width, fix or Roll 
roll 1/2 fixed, 2.3ms 



for the max ' 



SYNCIFLAG: 



SETBCCODE : 



PREVFIX ; Clear the previous "fixed" bit 

rtimeah, SyncThresh ; test for 1 or three time units 
uge, SYNC3FLAG ; set the sync 3 flag 

;Was a sync 1 word the last received? 
if not, then this is an A (or D) code 



Id 



radio3h, 



radiolh 



; Store the last sync 1 word 

Page 46 of 97 



JustNoise : 



SETADCODE : 



radio31, radioll 
RFlag, #00000110b 
RFlag, #11110111b 
BCCODE 



;Set the B/C Code flags 
; Clear the A/D Code Flag 



;Edge was noise keep waiting for sync bit 



SYNC 3 FLAG: 



or 


RFlag, #00001000b 






or 


RFlag, #01000000b 


set the sync 1 memory 


flag 


clr 


radiolh 


clear the memory 


clr 


radioll 




clr 


C0UNT1H 


clear the memory 




clr 


COUNT 1L 




jr 


DONE SET 1 


do the 2X 






RFlag, tlOllllllb 


set the sync 3 memory 


flag 


clr 


radio3h 


clear the memory 


clr 


radic31 






clr 


COUNT 3 H 


clear the memory 




clr 


COUNT 3 L 




clr 


ID B 


Clear the ID bits 




and 


SKIPRADIO, # LOW(-NOINT) ;Re-enable radio ints 




pop 


r P 










done return 





P2, #10000000b 
ClearRadio 



of the flag bit for clear 
; clear the radio signal 



SimBitZero: 



RotatelnBi- 



rtimeah, #10000000b ; Test for inactive greater than acti 
r.z, SimBitZerc ; if S o, binary zero received 



RotatelnBit 



Set the bit 



CodeTO 
CodeTl 
CodeT2 
CodeT3 
CodeT4 
CodeT5 



Shift the n( 
radio word 



radioc 

radioc, #(4 9 + 1; 
ugt, CLEARRADIO 
z, Knows imCode 
RADIO EXIT 



increase the counter 
Test for all 48 bits rece 
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CheckSiminor : 



sub 
sbc 



RadioMode, #ROLL_MASK ; If not in a rolling mode, 

z ' INSIG ; then it can't be a Siminor transmitter 

RadioTimeOut, #35 ; If the blank time is longer than 35 ms, 
ugt, INSIG ; then it can't be a Siminor unit 

RadioC, #10000000b ; Set the flag for a Siminor 'signal 
ID_B ; No ID bits for Siminor 



RFlag, #11011111B 
rtimeih, #014H 
uge, Clear Jump 
rtimeih, #00h 
z , Clear Jump 

rtimeah, #014H 
uge, Clear Jump 
rtimeah, #00h 
z. Clear Jump 

rtimeal, rtimeil 
rtimeah, rtimeih 



; clear blank time good flag 
; test for the max width 5.16 
; if too wide clear 
; test for the min width 

; if high byte is zero, pulse 

; test for the max width 
; if too wide clear 
; if greater then 0 then signal ok 
; if too narrow clear 

; find the difference 



too narrow 



UseSiminor 



RadioC, #10000000b ; If this is a Siminor code, 
nz, SimRadio ; then handle it appropriately 



rtimeah, #10000000b ; find out if neg 

nz , NEGDIFF2 ; use 1 for ABC or D 

P0SDIFF2 



rtimeah, BitThn 

ult,BITIS2 

BITIS3 



; test for 3/2 



rtimeah 

rtimeah, BitThresh 

ult,BIT2COMF 
BITIS1 



test for 2/1 



BIT2C0MP: 
BITIS2: 



RADIOBIT, #2h 
GOTRADBIT 



RADIOBIT, #: 
GOTRADBIT 



set the value 

; invert 
set the value 



GOTRADBIT: 



SetRpToRadio2 Group 
srp #Radio2Group 
tin rflag, #01000000fc 
jr nz,RCHNC 



; enable interrupts — REDUNDANT 

/Macro for assembler error 
— this is what it does 
; test for radio 1/3 



RadioMode, #ROLL_MASK 



;If in fixed mode, 
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z, Radio3F 
RadioC, #00000001b 
nz,C0UNT3INC 



; no number counter exists 
; test for even odd number 
if EVEN number counter 



Radio3R: 
Radio3F: 



SPECIAL BITS: 



add 
add 
add 



GETTRUEFIX 
RadioC, #14 
uge, SPECIAL_BITS 



pointerh, #Radio3H 
pointerl, #Radio3L 
AddAll 

RadioC, #20 
z,SWITCHID 

RTempH, id_b 
id_b, RTempH 
id_b, RTempH 
id_b, radiobit 
Radio3R 



id_b,#18 
uge, Rad: 
sw_b, radiob: 
Raciio3R 



■ 3R 



;Get the true fixed bit 

; test the radio counter for the specials 
; save the special bits seperate 



Disable interrupts to avoid pointer colli 
get the pointer 



test for the switch id 
if so then branch 



save the special bit 



; If this was a touch code, 
then we already have the ID bit 
save the switch ID 



Radiol INC: 



SwitchBitl : 
RadiolF: 



GETTRUEFIX : 



RadioMode, #R0LL_MASK 
z, RadiolF 
RadioC, #00000001b 
nz, COUNT 1 INC ; 



GETTRUEFIX 
RadioC, #02 
nz, RadiolF 
rflag, #00010000b 
z, SwitchBitl 



b, 



ul 



RadiolF 

sw_b, radiobit 

#RadioGroup 

pointerh, #RadiolH 
pointerl, #RadiolL 
AddAll 



;If in fixed mode, no number counter 

; test for even odd number 
; if odd number counter 

; else radio 

;Get the real fixed code 
;If this is bit 1 of the 1ms code, 
;then see if we need the switch ID bit 
;If this is the first word received, 

;then save the switch bit regardless 
;If we have a touch code, 

; then this is our switch ID bit 



;Save ■ 



>uch code ID bit 



Disable interrupts to 
get the pointer 



oid pointer collisi' 



; Chamberlain proprietary fixed code 
; bit decryption algorithm goes here 



C0UNT3INC: 



COUNT1INC: 



roilbit, radiobit 
iRadioGroup 

pointerh, #COUNT3H 
pointerl, #COUNT3L 
AddAll 



Store the rolling bit 

Disable interrupts to 
get the pointer 



; pointer coli 
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rollbit, radiobit 
#RadioGroup 

pointerh, #COUNTlH 
pointerl,#COUNTlL 
AddAll 



; Store the rolling bit 



; Disable interrupts ■ 
; get the pointers 



■ avoid pointer collision 



ALLADDED: 
S?LLWORD? 



|iSCCODE: 
FIRST20: 



Id 


addvalueh, Gpointerh 


get 


the value 


Id 


addvaluel, @pointerl 






add 


addvaluel, @pointerl 


add 


x2 


adc 


addvalueh, Gpointerh 






add 


addvaluel, @pointerl 


add 


x3 


adc 


addvalueh, Gpointerh 






add 


addvaluel , RADIOBIT 


add 


in new number 


adc 


addvalueh, #00h 






Id 


@pointerh, addvalueh 




; the value 


Id 


Spointerl , addvaluel 












; Re-enable 2 



radioc, MaxBits 
nz , RRETURN 

; Disable interrupts u 
or SKIPRADIO, #NOINT 

.IF TwoThirtyThree 
and IMR, #11111110B 
. ELSE 

and IMR, #11111100B 
. ENDI F 



clr 



RadioTimeOut 
RADIOBIT, #O0H 
z, ISCCODE 
RFlag, #11111101B 

RFlag, #00010000B 
nz,KNOWCODE 

RFlag, #000100003 

radioc 

RRETURN 



increase the counter 



ord is handled 

; Set the flag to disable radio 



; turn off the radio interrupt 
; Turn off the radio interrupt 



Reset the blank time 

; If the last bit is zero, 

; then the code is the obsolete C code 

; Last digit isn't zero, clear B code flag 

; test flag for previous word received 
; if the second word received 

; set the flag 
clear the radio counter 
; return 



KnowS imCode : 

; Siminor proprietary rolling code decryption algorithm goes here 



radi'olh, #0FFH 



Counter Corrected 



Set the code to be incompatible with 
the Chamberlain rolling code 



;If not in rolling mode, 
forget the number counter 

Chamberlain proprietary counter decryption algorithm goes here 
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CounterCorrected: 



STORECODE : 



srp 


#RadioGroup 




clr 


RRTO 


; clear the got a radio flag 




SKIPRADIO, #NOEECOMM ; 




3P 


nz , CLEARRADIO ; 


if skip flag is active then donot look at 


cp 


ID B, #18 


;If the ID bits total more than 18, 




ult, NoTCode 




or 


RFlag, #00000100b 


;then indicate a touch code 


Id 


ADDRESS, # VACAT I ON AD DR 


; set the non vol address to the VAC 


call 


READMEMORY 


; read the value 


Id 


VACFLAG , MTEMPH 


; save into volital 


cp 


CodeFlag, #REGLEARN ; 


test for in learn mode 


DP 


nz , TESTCODE 


; if out of learn mode then test for 


tm 


RadioMode, #ROLL_MASK 


;If we are in fixed mode. 


jr 


z, FixedOnly 


then don't compare the counters 



CompareCounter: 



cp 


PCounterA, MirrorA 


Test 


for counter match to previous 


jp 


nz, STORENOTMATCH 




; if no match, try again 


cp 


PCounterB, MirrorB 


Test 


for counter match to previous 


jp 


nz, STORENOTMATCH 




; if no match, try again 


cp 


PCounterC, MirrorC ; 


Test 


for counter match to previous 


jp 


nz , STORENOTMATCH 




; if no match, try again 


cp 


PCounterD, MirrorD 


Test 


for counter match to previous 


DP 


nz, STORENOTMATCH 




; if no match, try again 


cp 


PRADI01H, radiolh 




; test for the match 


jp 


nz, STORENOTMATCH 




; if not a match then loop again 


cp 


PRADI01L, radioll 




; test for the match 


jp 


nz, STORENOTMATCH 




; if not a match then loop again 


cp 


PRADI03H, radio3h 




; test for the match 


jp 


nz, STORENOTMATCH 




; if not a match then loop again 


cp 


PRADI03L, radio3i 




; test for the match 




nz , STORENOTMATCH 




; if not a match then loop again 


cp 


AUXLEARNSW, #116 




; If learn was not from wall control, 


jr 


ugt, CMDONLY 


then 


learn a command only 


tm 


CMD DEE, # 10000000b ; 


If the command switch is held, 


jr 


nz, CmdOrOCS 


th 


sn we are learning command or o/c/s 




LIGHT DEB, #10000000b 




; If the light switch and the lock 


jP 


z, CLEARRADI02 




; switch are being held, 



LearningLight : 



VAC_DEB, #10000000b ; 
z, CLEARRADI02 

RadioMode, #ROLL_MASK 
z, CMDONLY 

CodeFlag, #LRNLIGHT ; 
BitMask, #01010101b ; 
CMDONLY 



Only learn a light tr 
the rolling mode. 



LIGHT 
nz, CMDONLY 



*:ooooooob 



If the light switch isn't being held 
then see if we are learning o/c/s 
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VAC_DEB, #10000000b ; If the vacation switch isn't held, 

z, CLEAR RADI 02 ; then it must be a normal command 

RadioMode, #R0LL_MASK ; Only learn an o/c/s if we are in 

z, CMDONLY ; the rolling mode. 

RadioC, #10000000b ; If the bit for siminor is set, 

nz, CMDONLY ; then don't learn as an o/c/s Tx 

CodeFlag, #LRNOCS ; Set flag to learn o/c/s 

BitMask, #10101010b ; 



WriteOverOCS : 



TESTCODES 
ADDRESS, # 0 FFH 
z, STOREMATCH 



test the code to see if in memory i 
If the code isn't in memory 



STOREMATCH : 



SetAsFixed: 



RadioMode, #ROLL_TEST ; If we are not tes' 

ugt, SameRadioMode ; then don't switch 



ADDRESS, #MODEADDR ; Fetch the old radio mode. 



READMEMORY 
RadioMode, #ROLL_MASK 
nz, SetAsRoll 

RadioMode, #FIXED_MODE 

FixedNums 

WriteMode 



change only the low order 

byte, and write in its new value. 



Set the fixed thresholds permanently 



SameRadioMode : 



Set the rolling thresholds permanently 



call 
inc 



RFlag, #00000010B 
nz, CCODE 
RFlag, #00000100B 
nz,BC0DE 

ADDRESS, #2BH ; 

READMEMORY 

MTEMPH 

MTEMPH 

RadioMode, #ROLL_MASK 
z, FixedMem 



If the flag for the C code is si 

then set the C Code address 
test for the b code 
if a B code jump 



set the address to read the 

; read the memory 
add 2 to the last written 



If the radio is in fixed mode, 
then handle the fixed mode memory 



inc 



FixedMem: 



AddressZen 
GOTAADDRES. 



MTEMPH 
MTEMPH 

MTEMPH, #11111100B 
MTEMPH, #1FH 
ult, GOTAADDRESS 
AddressZero 



MTEMPH, #111111103 
MTEMPH, #17H 
ult, GOTAADDRESS 



ADDRESS, #2BH 
RTemp, MTEMPH 
MTEMFL, MTEMPH 



Add another 2 to the last written 

; Set to a multiple of four 
; test for the last address 
; If not the last address jump 
; Address is now zero 



set the address on a even numbe: 
test for the last address 
if not the last address jump 



; set the address to 

set the address to write ■ 
save the address 
both bytes same 
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BCODEOK : 
READYTOWRITE: 
^SFIXSTORE: 



UpByte: 
MaskDone : 



LearnOCS: 



call 


WRITEMEMORY 




Id 


ADDRESS, rtemp ; 


set the address 


jr 


READYTOWRITE ; 




tm 


RadioMode, #ROLL_MASK 


; If in rolling code mode, 




n z , CLEARRAD I O 


; then HOW DID WE GET A C CODE 0 


Id 


ADDRESS, #01AH 






READYTOWRITE ; 


Store the C code 




RadioMode #ROLL MASK 


; If in fixed mode, 


j r 


z, BFixed 


; handle normal touch code 




SW B, # ENTER ; 


If the user is trying to learn a key 


DP 


nz, CLEAR RADIO 


; other than enter, THROW IT OUT 


Id 


ADDRESS, #20H 


Set the address for the rolling touch code 


jr 


READYTOWRITE 


cp 


radio3h,#90H 


test for the 00 code 


jr 


nz,BCODEOK 




cp 


radio31,#29H ; 


test for the 00 code 


j r 


nz, BCODEOK 




jP 


CLEAR RADIO 


; SKIP MAGIC NUMBER 


Id 


ADDRESS, #18H ; 


set the address for the B code 


call 


WRITECODE 


; write the code in radiol and radio3 


tm 


RadioMode, #ROLL MASK 


; If we are in fixed mode. 


jr 


z, NOWRITESTORE 


; then we are done 


inc 


ADDRESS 


; Point to the counter address 




RadiolH, MirrorA 


; Store the counter into the radio 


Id 


RadiolL, MirrorB 


; for the writecode routine 


Id 


Radio3H, MirrorC 










call 


WRITECODE 




com 1 


SetMask 






BitMask 




Id 


ADDRESS, #RTYPEADDR ; 


Fetch the radio types 


call 


READMEMORY 


tm 


RFlag, #10000000b 


; Find the proper byte of the type 


jr 


nz, UpByte 




and 


MTEMPL BitMask 


; Wipe out the proper bits 


j r 








MTEMPH BitMask 












CodeFlag, #LRNLIGHT ; 




jr 


z, LearnLight 


set the appropriate bits 




CodeFlag, #LRNOCS 




jr 


z, LearnOCS 


; set the appropriate bits 


clr 


BitMask 


Set the ro er bits as command 
e e proper its as comman 


jr 


BMReady 




and 


BitMask, #01CIC101b ; 


Set the proper bits as worklight 


jr 


BMReady 


; Bit mask is ready 


cp 


SK_B, #C2K 


; If 'open' switch is not being held, 


jP 


nz, CLEAR RADI02 


; then don't accept the transmitter 


and 


BitMask, #lC101010b ; 


Set the proper bits as open/close/stop 
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UpByt2 : 
MaskDon2 : 

NOWRITESTORE : 



STORENOTMATCH: 





RFlag, ilOOOOOOOb 


jr 


nz , UpByt2 


? r 


MTEMPL, BitMask 


I)r 


MaskDon2 


or 


MTEMPH, BitMask 


call 


WRITEMEMORY 


xor 


pO, #WORKLIGHT ; 


or 


ledport, #ledh ; 


Id 


LIGHT1S,#2 4 4 


Id 


LEARNT, #0FFK 


clr 


RTO 


clr 


CodeFlag 


jP 
I: 


CLEARRADIO 


Id 


PRADIOIH, radiolh 


Id 


PRADIOIL, radioll 


Id 


PRADI03H,radio3h 


Id 


PRADI03L, radio31 




RadioMode, #ROLL MASK 


DP 


z, CLEARRADIO ~ ; 


Id 


PCounterA, MirrorA 


Id 


PCounterB, MirrorB ; 


Id 


PCounterC, MirrorC ; 


Id 


PCounterD, MirrorD 


jp 


CLE ARRADI O 


cp 


ID_B, #18 


jp 


uge, TCReceived 


Tr 


RFlag, #00000100b 




z, AorDCode 


cp 


ZZWIN, #64 


jr _ 


ugt, AorDCode ; 


cp 


RadiolH, #90H 


D r 


nz, AorDCode ; 


cp 


RadiolL, #2SK ; 


j r 


nz, AorDCode 


push 


RP 


srp 


#LEARNEE_GRP 




SET LEARN 


pop 


RP 


DP 


CLEARRADIO 


cp 


L_A_C, #070H ; 


jr 






FAULT FLAG #0FFH 


jr 


z, FS1 


and 


ledport, #ledl ; 


call 


TESTCODES 


cp 


L_A_C, #070H 


jr 


uge, FS2 


cp 


FAULT FLAG, # OFFK 


jr 


z, FS2 




ledport, #ledh ; 



; Find the proper byte of the type 

; Write the transmitter type in 

; Write the transmitter type in 

; Store the transmitter types 



toggle light 

turn off the LED for program mode 
turn on the 1 second blink 
set learnmode timer 

disallow cmd from learn 
Clear any learning flags 
return 



radio 



If we are in fixed mode, 
get the next code 



If this was a touch code, 
handle appropriately 

If we have received a B code, 
then check for the learn mode 

Test 0000 learn window 
: of window no learn 



Test for in learn limits mode 

; If so, don't blink the LED 
; test for a active fault 

; if a avtive fault skip led set and reset 
turn on the LED for flashing from signal 

; test the codes 
Test for in learn limits mode 

; If so, don't blink the LED 
; test for a active fault 

; if a avtive fault skip led set and reset 
turn off the LED for flashing from signal 
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ADDRESS, #OFFFT 



SimRollCheck: 



UpdateSCode: 



RollCheckB: 



jr 


nz, GOTMATCH 


jP 


CLEARRADIO 


inc 


ADDRESS 


inc 


ADDRESS 


call 


READMEMORY 




CounterC, MTEMPH 


Id 


CounterD, MTEMPL 


cp 


CodeT2, CounterC 


jr 


nz, UpdateSCode 


cp 


CodeT3, CounterD 


jr 


nz, UpdateSCode 


3P 


CLEARRADIO 


Id 


MTEMPH, CodeT2 


Id 


MTEMPL, CodeT3 


call 


WRITEMEMORY 


sub 


CodeT3, CounterD 


sbc 


CodeT2, CounterC 


tm 


CodeT2, #10000000b ; 


jP 


nz, CLEARRADIO 






tm 


RadioMode, #ROLL MASK 


jr 


z, MatchGood2 


tm 


RadioC, #10000000b ; 


jr 


nz, SimRollCheck 


tm 


BitMask, #10101010b ; 




z, RollCheckB ; 


cp 


SW_B, #02 


jr 


nz, MatchGoodOCS 


call 


TestCounter 




CMP, # EQUAL 


DP 


z, NOTNEWMATCH 


cp 


CMP, #FWDWIN 


jP 


nz, CheckPast 


Id 


RadiolH, MirrorA 


Id 


RadiolL, MirrorB 


Id 


Radio3H, MirrorC 


Id 


Radio3L, MirrorD 




ADDRESS 


call 


WRITECODE 


or 


RFlag, #00000001B 


cp 


RTO, #RDPOPTIME 


jp 


uit.NOTNEWKATCH 


cp 


ADDRESS, #23H 


jr 


z, MatchGood2 



; test for the not matching state 

if matching the send a command if needed 
clear the radio 



Point to the rolling' code 
(Note: High word always zero) 
Point to rest of the counter 
Fetch lower word of counter 



If the two counters are equal, 
then don't activate 



Counters equal — throw it < 



Always update the counter if the 
fixed portions match 



; Compare the 1 



? result is negative, 
then don't activate 
good — handle normally 



; If we are in fixed mode, 
the match is already valid 



If this was a Siminor transmitter, 

; then test the roll in its own way 



If this was NOT an open/close/stop trans, 
then we must check the rolling value 



; If the o/c/s had a key other than '; 
; then don't check / update the roll 



; Rolling mode -- compare the coui 

; If the code is equal, 

; then just keep it 
If we are not in forward window, 
then forget the code 



Stc 



re the counter into memory 
keep the roll current 



Line up the address for 



; set the flag for recieving without « 

; test for the timer time out 

; if the timer is active then donot re 

If the code was the rolling touch code, 
then we already know the transmitter type 
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call 

Id 

call 



Upper D: 
TransType : 



HatchGood2 : 



!T<3TSDI SABLE : 



RADIO-COMMAND 



SetMask 

ADDRESS, #RTYPEADDR 
READMEMORY 
RFlag, tlOOOOOOOb 
nz, Upper D 

BitMask, MTEMPL 
TransType 

BitMask, MTEMPH 

BitMas'k, #01010101b 
nz, LightTrans 
BitMask, #10101010b 
nz, OCSTrans 



RFlag, #00000001B 



FirstLearn: 



NormalRadio : 



Set the mask bits properly 
Fetch the transmitter config. bits 

; If we are in the upper word, 
; check the upper transmitters 

; Isolate our transmitter 
; Check out transmitter type 

; Isolate our transmitter 

Test for light transmitter 

; Execute light transmitter 
: Test for Open/Close/Stop Transmitter 
: Execute open/close/stop transmitter 

; Otherwise, standard command transmitter 

set the flag for recieving without error 



CP 

jp 


RTO, #RDROPTIME 
ult , NOTNEWMATCH 


; test for the timer time out 

; if the timer is active then donot reissue cmd 


cp 
jp 


VAC FLAG, #0 OB 
2 , TSTSDISABLE 


test for the vacation mode 

if not in vacation mode test the system disable 


jr 


RadioMode, #ROLL_MASK 
z, FixedB 




cp 
jP 
jP 


ADDRESS, #23H 
nz, NOTNEWMATCH 
TSTSDISABLE 


If this was a touch code, 
; then do a command 


cp 
jP 


ADDRESS, # I 9H ; 
nz , NOTNEWMATCH 


test for the B code 

; if not a B not a match 


cp 
DP 
clr 
cp 
' jP 


SDI SABLE, #32 
ult, NOTNEWMATCH 
RTO 

ONE? 2 , #0C 

nz , NOTNEWMATCH 


test for 4 second 

; if 6 s not up not a new code 

; clear the radio timeout 

; test for the 1.2 second time out 

; if the timer is active then skip the command 


clr 
tre 
jr 


RTO 

RFlag, #00000100b 
z , BDONTSET 


; clear the radio timeout 

; test for a B code 

; if not a b code donot set flag 


clr 


ZZKIN 


; flag got matching B code 


Id 


CodeFlag , fBRECEIVED ; 


flag for aobs bypass 


cp 
jr 

jr 
cp 
jP 


L_A_C, #07 OH ; 
ult, NormalRadio 
z, FirstLearn 
L_A_C, #07 1H ; 
nz, CLEAR RADIO 


If we were positioning the up limit, 
; then start the learn cycle 

If we had an error, 

; re-learn, otherwise ignore 


Id 

call 
jP 


L_A_C, #072H ; 
SET_UP_DIR STATE 
CLEARRADIO 


Set the re-learn state 


Id 

call 

jp 


LAC, #073K ; 
SET_UF_POS_STATE 


: Set the learn state 

; Start from the "up limit" 


clr 


LAST_CKL 


; mark the last command as radio 
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RADIO_CMD, #OAAH 
CLEARRADIO 



radio command 



LightTrans : 



RTO 

ONEP2,#00 

nz, NOTNEWMATCH 

SW_DATA, #LIGHT_SW 

CLEARRADIO 



; Clear the radio timeou- 
; Test for the 1.2 sec. ■ 
; If it isn't timed out, 
Set a light command 
; return 



GpenButton : 



SDI SABLE, #32 
ult, NOTNEWKATCH 
VACFLAG, #00H 
nz , NOTNEWMATCH 
RTO 

0NEP2, #00 

nz, NOTNEWMATCH 

SW_B, #02 

nz, CloseOrStop 



Test for 4 second system disable 
; if not done not a new code 

If we are in vacation mode, 

; don't obey the transmitter 

; Clear the radio timeout 

; test for the 1.2 second timeout 

; If the timer is active the skip command 



If the open button is 
then process it 



iressed, 



STATE, #STOP ; If we are stopped or 

z, OpenUp ; at the down lii 

STATE, #DN_POSITION ; begin to move up 
OpenUp 



STATE, # DN_D I RE CT I ON 
nz, OCSExit 
REASON, #010H 
SET_AREV_STATE 
OCSExit 



If we are moving down, 
then autoreverse 
ie reason as radio 



Id 

call 



Set the reason as radi< 



CloseOrStop: 



CLEARRADIO 



If the stop button is pressed. 



STATE, #UP_DIRECTION 
z, Stoplt 

STATE, #DN_DIRECTION 

STATE, #AUTO_REV 
Z, Stoplt 
OCSExit 



the autoreverse stai 
then stop the door 



REASON, #01 OH 
SET_STOP_STATE 
OCSExit 



Set the reason as radii 



STATE, #UP_PCSITION ; If we are at the up limi' 
z, CIcselt ; or stopped in tra\ 

STATE, #STOP ; then send the door down 

z, Closelt ; 
OCSExit 
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REASON, #01 OH 

SET_DN_DIR_STATE 

OCSExit 



Set the reason as radio 



3r 
or 

InLowerByte : 

tm 

jr 

EightOrTwelve : 

Id 
jr 

ZeroOrFour : 

Id 

LSNybble: 

fourOrTwelve : 



RFlag, #01111111b 
ADDRESS, #111100C0b , 
z, InLowerByte 
RFlag, #10000000b 

ADDRESS, #00001000b , 
z, ZeroOrFour 

BitMask, illllOOOOb 
LSNybble 

BitMask, #00001111b 

ADDRESS, #00000100b 
z, ZeroOrEignt 

BitMask, #11001100b 



Reset the page 1 bit 
: address is on page 1, 
then set the proper flag 



Binary search to set the 
proper bits in the bit ma: 



BitMask, #00110011b ; 



TESTCODES: 



i=RollCheck: 



NEXT CODE: 



HAVEMASK: 



CheckOCSl : 



ADDRESS, #RTYPEADDR ; Get the radio types 

READMEMORY 

RadioTypes, MTEMFL 

RTypes2, MTEMPK 

RadioMode, #ROLL_MASK ; 

nz, RollCheck 

RadioTypes ; 
RTypes2 

ADDRESS ; start address 



the approprite b±' 



the 



ent tr, 



Litter type-s 



READMEMORY 
MTEMPH, radio ir. 
nz , NOMATCH 
MTEMPL, radioll 
nz , NOMATCH 
ADDRESS 
READMEMORY 
BitMask, #10101010: 
n2, CheckOCSl 
CodeFlag, #LRNOCS 
z, CheckOCSl 
MTEMPH, radic3h 
nz , NOMATCH2 
MTEMPL, radio31 
nz , NOMATCH2 



MTEMPL, radio31 
MTEMPH, radio3h 
CodeFlag, #LRNOC: 
nz, Positive 



. address 



read the word at this address 
test for the match 
if not matching then d 
test for the match 

if not matching then do next address 
set the second half of the code 
read the word at this address 
If this is an Open/Close/Stop trans., 
then do the different check 

; If we are in open/close/stop learn mode, 
then do the different check 
; test for the match 

; if not matching then do the next address 
; test for the match 

; if not matching then do the next address 
; return with the address of the match 



Subtract the radio from the memory 



: we are trying to learn open/close/stop 
then we must complement to be positive 
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Positive : 



MTEMPL 
MTEMPH 
MTEMPL, #1 
MTEMPH, #0 

MTEMPH, #00 
nz, NOMATCH2 
MTEMPL, #02 
ugt, NOMATCH2 



; Switch from ones complement to 2's 
; complement 

; We must be within 2 to match properly 



NOMATCH : 
NOMATCH2 : 



\ 6OTN0MATCH : 



ADDRESS ; 

RadioMode, #R0LL_MASK ; 

z, AtNextAdd ; then i 

ADDRESS ; 

ADDRESS ; 

ADDRESS, #1 OH ; I f we 

nz, AtNextAdd ; then 

RadicTypes, RTypes2 ; 

ADDRESS, #22H ; test 

ult,NEXTCODE ; if no 



ADDRESS , # OFFH 



Return with the address of the match 



set the address to the next code 

set the address to the next code 
If we are in fixed mode, 
*e are at the next address 
Roll mode -- advance past the counte: 

are on the second page 
get the other tx. types 



st address 
address then try agai: 



jfctOTNEWMATCH: 



RTO 

RFlag, #00000001B 
radioc 

LEARNT, # 0 FFH 
RADIO EXIT 



; reset the radio time out 

; clear radio flags leavxng recieving i 
; clear the radio bit counter 
; set the learn timer "turn off" and backup 

; return 



Proprietary algorithm for maintaining 
rolling code counter 

Jumps to either KatchGood, UpdatePast 



CLEARRADIO 



CLEARPADI02 : 



CLEARRADIO: 



LastMatch, ADDRESS 

PCounterA, MirrcrA 

PCounterB, MirrorB 

PCounterC, MirrorC 

PCounterD, MirrorD 

LEARNT, #0FFH 
CodeFlag 



. off the lean 



.IF 

. ENDIF 



TwoThirtyThree 
IRQ, #00111111B 



clear the bit 



i to neg edge 



CLEARRAD I OA : 



RINFILTER, # CFFH 

RFlag, #00000001B 

Z, SKIPFTO 

RTO 



test for receiving without error 

if flag not set then donor clear timer 

clear radio timer 



radioc 
RFlag 



the .radio counter 
; clear the radio flag 
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TCReceived: 



ID_B 

RADIO EXIT 



; Clear the ID bits 



L_A_C, #070H 
uge, TestTruncate 
FAULTFLAG, #OFFH 
z, TestTruncate 
ledport, #ledl 
TestTruncate 



Test for in learn limits mode 

; If so, don't blink the LED 

; If no fault 

; turn on the led 

Truncate off most significant digit 



sub RadiolL, #0E3h 
sbc RadiolH, #04Ch 



Subtract out 3~9 1 



RadiolH, #04Ch 
ugt, TruncTC 
ult, GotTC 
RadiolL, #0E3h 



; If we are greater than 3 A 
truncate down 



ADDRESS, #TOUCHID 
READMEMORY 
L_A_C, #07 OH 
uge, CheckID 
FAULT FLAG , #0FFH 
2, CheckID 
ledport, #ledh 



; Check 



MTEMPH, Rad: 
nz, CLEAR RADIO 
MTEMPL, Rad: 
nz, CLEARRADIO 



3H 



3L 



ake sure the ID code is good 



Test for in learn limits mode 
If so, don't blink the LED 
; If no fault, 
; turn off the LED 



TestCounter 
CMP, # EQUAL 
z, NOTNEWMATCK 

cmp, #fwdw:k 

nz, CLEARRADIO 



Test the rolling code count! 
If the counter is equal, 
then call it the same code 



Counter good 



Back up radio code 



RadiolH, MirrorA 
RadiolL, MirrorB 
Radio3H, MirrorC 
Radic3L, MirrorD 
ADDRESS 
WRITECODE 



;Write the 



RadiolH, COUNT 1H 
RadiolL, COUNT1L 



; Restore the radio code 



CodeFlag, # NORMAL 
z, NorroTC 

CodeFlag, #LRKTEMP 



rrent mode 



CodeFlag, #LRNDURTN 
z, LearnDur 

CLEARRADIO 
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Compare the four-digit touch 

" code to our permanent password 



If the ENTER key was pressed, 

; issue a B code radio command 
If the user pressed the pound key, 
; enter the learn mode 
Star key pressed — start 30 s timer 

:lr LEARNT ; 

d FLASH_COUNTER, #06h ; Blink the worklight three 

d FLASH_DELAY,#FLASH_TIME ; times quickly 

d FLASH_FLAG, # OFFH 

d CodeFlag, #LRNTEMP ; Enter learn temporary mode 

p CLEARRADIO 



Id 


ADDRESS, #TOUCHPERM 


call 


READMEMORY 


cp 


RadiolH, MTEMPH 


jr 


nz, CheckTCTemp 


cp 


RadiolL, MTEMPL 


jr 


nz, CheckTCTemp 


cp 


SW_B, # ENTER 


jP 


z, RADIOCOMMAND 


cp 


SW_B, 4 POUND 


jr 


z, TCLeain 



Id 

srp 
call 
pop 

jP 



: CheckTCTemp: 



FLASH_COUNTER, #04h ; Blink the worklight two 
FLASH_DELAY, #FLASH_TIME ; times quickly 
FLASH_FLAG, # OFFH ; 



CLEARRADIO 



address, #touchtemp ; Compare the four-digit touch 



READMEMORY 
RadiolK, MTEMPK 
nz, CLEARRADIO 
RadiolL, MTEMFL 
nz, CLEARRADIO 

STATE, #DN_POSITION 
nz, RADIOCOMMAND 

ADDRESS, #DURAT 
READMEMORY 
MTEMPL, #00 
z, CLEARRADIO 



temporary password 



:e not at the down limit, 
ssue a command regardless 



MTEMPK, ^ACTIVATIONS 
nz, RADIOCOMMAND 

MTEMPL ; 

WRITEMEMORY 

RADIOCOMMAND 



If we are in number of ac 
mode, then decrement the 
c of activations left 



SW_B, # ENTER 
nz, CLEARRADIO 

ADDRESS, #TOUCHPERM , 

READMEMORY 

RadiolH, MTEMPH 

nz, TempGood , 

RadiolL, MTEMPL 

Z, CLEARRADIO 



If the user pressed a key other 

; then enter, reject the code 

If the code entered matches the 
; permanent touch code, 
; then reject the code as a 

temporary code 
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ADDRESS, #TOUCHTEMP ; Write the code into temp. 
MTEMPH, RadiolH 
MTEMPL, RadiolL 
WRITEMEMORY 



FLASH_COUNTER, #08h ; Bl: 
FLASH_DELAY, #FLASH_TIME 
FLASH_FLAG, # 0 FFH 

:t 30 s timer 



nk the worklight four 
; times quickly 



LEARNT 

CodeFlag, #LRNDURTN 
CLEARRADIO 



Enter lear: 



fitfumDuration : 



■ Durationln : 



RadiolH, #00 
nz, CLEARRADIO 

SW_B, # POUND 
z, NumDuration 
SW_B, #STAR 
z, HoursDur 

CLEARRADIO 



MTEMPH, #HOURS 



If the duration was > 255, 

; reject the duration entered 

If the user pressed the pound 

; key, number of activations mode 
; If the star key was pressed, 
; enter the timer mode 
; Enter pressed — reject code 



Flag number of hours mode 



Id MTEKFL, RadicIL 

Id ADDRESS , # DURAT 

call WRITEMEMORY 

; Give worklight or.e long blink 

xor PO, #WORKLIGHT 

Id LIGHT1S, #244 ; last 

clr CodeFlag 

jp CLEARRADIO 



Load in duration 

Write duration and mode 

into nonvolatile memory 

; Give the light one blink 

.ng one second 

; Clear the learn flag 



Test Rolling Code Counter Subroutine 

Note: CounterA-D will be used as temp registers 



TestCounte 



push 


RP 




srp 


ICounterGroup 




inc 


ADDRESS 


; Point 


call 


READMEMORY 


; Fetch 


Id 


countera, MTEMPH 




Id 








ADDRESS 


; Point 


call 


READMEMORY 


; Fetch 








id 


countera, MTEMPL 





old counter (countera-d) from current 
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counter (mirrora-d) and store in countera-d 



CheckBackWir. 









Obtain twos complement of 


com 


counterb 














com 


counterd 










#01H 




adc ' 


counterc' 


#00H 




adc 


counterb, 


#00H 




adc 


countera, 


#00K 








mirrord 


Subtract 


adc 


counterc. 


mirrorc 




adc 


counterb, 


mirrorb 




adc 










If the ms 


b of counterd is negative, check to see 




if we are 


inside the negati 


ire window 


tm 


counterc, 


#10000000B 




jr 




wdWm 




cp 


countera, 


#0FFK 


Check to see if we are 




nz, OutOfWindow 


less than -0400H 


cp 


counterb, 


#0FFH 


(i.e. are we greater than 




nz, OutOfWindow 


OxFFFFFCOOH) 


cp 


counterc, 


tOFCH 






ult, OutOfWindow 





=InBackWiri : 



iCheckFwdWin 



CMP, IBACKWIN 
CompDone 



Return in back window 



countera, #00H 
nz, OutOfWindow 
counterb, #0uH 
nz, OutOfWindow 
counterc, #0CH 
uge, OutCfWindcw 



Check to see if we are le 
than 0C00 (3072 = 1024 
activations ; 



CountersEqual : 



counterc, #00H 
nz, InFwdViin 
counterd, #00H 
nz, InFwdWin 



CMP, # EQUAL 
CompDone 



;Return equal counte 



OutOfWindow: 



CMP, #FWDWIN 
CompDone 



; Return in forward window 



CMP, *O r JTOF>;iN 



; Return, out of any window 
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; Clear interrupt 
ClearRadio: 



RadioMode, #ROLL_TEST 
ugt, MODE DONE 



T125MS, #00000001b 
Z, SETROLL 



SETFIXED: 



Id RadioMode, #FIXED_TEST 

call FixedNums 
jp MODEDONE 



;If in fixed or rolling mode, 
then we cannot switch 



If our 'coin toss' was a zero, 

; set as the rolling mode 



'MODEDONE: 
clr 



RadioTimeOut 

RadioC 

RFlag 



clear radio timer 
clear the radio 

; clear the radio flags 



ret 
RollNums : 



BitThresh, #FIXTHR 
SyncThresh, #FIXSYNC 
MaxBits, #FIXBITS 



BitThresh, # DTHR 
SyncThresh, #DSYNC 
MaxEits, #DEITS 



reset the RP 



LoopCount * 2 then add 



RotateMirrorAdd : 



rlc mirrorb 
rlc mirrora 

djnz loopcount,RotateNirrorAdd 



clear the carry 



loop till done 



; Add mirror to 
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add counterd,mirrord 

adc counterc, mirrorc 

adc counterb,mirrorb 

adc countera,mirrora 
ret 



LEARN DEBOUNCES THE LEARN SWITCH 80mS 

TIMES OUT THE LEARN MODE 30 SECONDS 

DEBOUNCES THE LEARN SWITCH FOR ERASE 6 SECONDS 



TEST LEARN : 



#LEARNEE_GRP 
STATE, #DN_POSITION 
z, TESTLEARN 
STATE, #UP_POSITION 
z, TESTLEARN 
STATE, #STOP 
z, TESTLEARN 
L_A_C, #074H 
z, TESTLEARN 
learnt, #0FFH 
learnt, #240 
nz , ERASETEST 
learnoff 



set the register pointer 
test for motor stoped 

test for motor stoped 

test for motor stoped 

Test for traveling 

set the learn timer 

test for the learn 30 second timeout 
if not then test erase 

; if 30 seconds then turn off the iea: 

; test for the debounced release 

; if denouncer not released then jump 



; Set the reason as command 



tiomLea rr.Brea k : 

clr LEARN DB 



clear the debounce 



LEARNN07RELEASED : 



SETLEARN : 

call 
ERASETEST : 



CodeFlag, #LRNTEMP 
uge, IN LEARN 
learndb, #20 
nz, ERASETEST 

SmartSet 

L_A_C, #07 0H 
uge , ERASERELEASE 
learndb, #0FFH 
nz, ERASERELEASE 
eraset , # 0FFH 
nz , ERASETIMING 



ERASETIMING: 



;test for learn mode 
; if in learn jump 
; test for debounce period 
if not then test the erase period 



for in learn limits mode 

; If SO, DON'T ERASE THE MEMORY ■ 

; test for learn button active 
; if button released set the erase tim 

; if the timer active jump 
; clear the erase timer 

; test for the erase period 
; if timed out the erase 



ledport,#ledh 
skipradic, #N0EEC0MM 
CLEARCODES 
skipradio 

learnt, #0FFH 



; turn off the led 
; set the flag tc skip zl. 
clear all codes in memory 
reset the flag to skip radio 



radio read 



; set the lean 



timer 
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clr 
ret 



Smart Set : 

cp L_A_C, #07 OH 

jr nz, NormLearnMakel 

Id REASON, #00H 

call SET_DN_NOBLINK 

jr LearnMakeDone 

NormLearnMakel : 

cp L_A_C, #074K 

jr nz, NormLearnKake2 

Id L _^_c, #075H 

Id REASON, #00H 

call S E T_AREV_S TATE 

jr LearnMakeDone 

NormLearnMake2 : 

clr LEARNT 

Id CodeFlag, #REGLEARN 

and ledport, #ledl 

Clr VAC FLAG 

1 d ADDRE S S , # VACAT I ON A DDR 

clr MTEMPK 

clr MTEMPL 

Id SKIPRADIO,#NOEECOMM 

call WR I TEMEMORY 

clr SKIPRADIO 
LearnMakeDone : 

Id LEARNDB, #0FFH 
ret 



; Test for in learn limits mode 
; If not, treat normally 
; Set the reason as command 



; Test for traveling down 

; If not, treat normally 

; Reverse off false floor 

; Set the reason as command 



; clear the learn timer 
; Set the learn flag 

; turn on the led 
; clear vacation mode 

; set the non vol address for ve 
; clear the data for cleared vacation 

; set the flag 
;e the memory 
; clear the flag 

; set the debouncer 



ERASERELEASE : 



raset, #0FFH 
earndb, #236 
, LEARNRELEASED 



; turn off the erase timer 
; test for the debounced release 
if debouncer not released then jump 



IN LEARN : 

cp learndb,#20 

jr nz, TEST LEARNT IMER 

Id learndb,#0FFH 

TESTLEARNTIMER : 

cp learnt, #240 

nz, ERASETEST 



off: 



ledport , # ledr. 
learnt , #0FFH 
1 earndb, #0FFK 
CodeFlag 
ERASETEST 



test for the debounce period 
if not then test the learn time 
; set the learn db 

30 second t: 



; turn off the led 
; set the learn timer 

; set the learn debounce 
; Clear ANY code types 
; test the erase timer 



; WRITE WORD TO MEMORY 

; ADDRESS IS SET IN REG ADDRESS 

; DATA IS IN REG MTEMPH AND MTEMPL 

; RETURN ADDRESS IS UNCHANGED 

WRI TEMEMORY: 



push 


RP 




; SAVE THE RP 


srp 


#LEARNEE_GRF 


; set 


the register pointer 


call 


STARTB 




; output the start bit 




serial, ^0011 CI? OH 




; set byte to enable w 


call 


SERIALOuT 




; output the byte 


and 


csport , #csl 




=t the chip select 


call 


STARTB 




; output the start bit 


Id 


serial, #01000000B 


; set 


the byte for write 
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or 


serial, address 


call 


SERIALOUT 


Id 


serial, mtemph 


call 


SERIALOUT 


Id 


serial, mtempl 


call 


SERIALOUT 


call 


ENDWRITE 




STARTB 


Id 


serial, #OOO0OOO0B 


call 


SERIALOUT 




csport, #csl 


or 


P2M_SHADOW, #clockh 


Id 


P2M,P2M SHADOW 


pop 


RP 


ret 









; or in the address 

; output the byte 

; set the first byte to write 

; output the byte 

; set the second byte to write 

; output the byte 

; wait for the ready status 

; output the start bit 
r set byte to disable write 

; output the byte 
; reset the chip select 
: Change program switch back to read 

; reset the RP 



READ WORD FROM MEMORY 

ADDRESS IS SET IN REG ADDRESS 

DATA IS RETURNED IN REG MTEMPH AND MTEMPL 

ADDRESS IS UNCHANGED 



PJEADMEMORY : 
srp 



#LEARNEE_GR? 
STARTB 

serial, I10000000B 

serial , address 

SERIALOUT 

SERIAL IN 

mtemph, serial 

SERIALIN 

mtempl , serial 

csport, #csl 

P2M_SHADOW, #clockh 

P2M, P2M_SHADOW 

RP 



set the register pointer 

; output the start bit 
preamble for read 

; or in the address 

; output the byte 

; read the first byte 

; save the value in mtemph 

; read teh second byte 

; save the value in mtempl 
reset the chip select 

; Change program switch back to read 



WRITE CODE TO 2 MEMORY ADDRESS 

CODE IS IN RADIOIH RAD I O 1 L RADI03K RADI03L 



WRITECODE : 



push 


RP 






srp 


#LEARNEE_GRP ; set 


the register pointer 




Id 


mtemph, Radiol H 


; transfer the data fror 


n radio 1 to 


Id 


mtempl , Radioil 






call 


WRITEMEMORY 


; write the temp bits 






address 


; next address 




Id 


mtemph, Radio3H 


; transfer the data fror 


n radio 3 to 


Id 


mtempl , Radio3L 






call 


WRITEMEMORY 


; write the temps 




pop 


RP 






ret 




; return 













CLEAR ALL RADIO CODES IN THE MEMORY 



CLEARCODES : 
push 
srp 



RP 

#LEARKEE_GRP 
MTEMPK, # OFFK 
MTEMPL, # OFFK 
address, #00H 



set the register pointer 

set the codes to illegal codes 



; clear address 0 
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WRITEMEMORY ; ••; 

address 

address, # (AddressCounter - 1) 

ult, CLEARC 

mtemph 

WRITEMEMORY 

address, #AddressAPointer 
WRITEMEMORY ; 



; set the next address " 

; test for the last address of radi< 



clear data 



; Clear radio types 
clear address F 



RadioMode, #FIXED_TEST 
BitThresh, #FIXTHR 
SyncThresh, #FIXSYNC 
MaxBits, #FIXBITS 



;Set EEPROM memory as fixed test 
; Revert to fixed mode testing 



CodesCleared : 

pop RF 



START BIT FOR SERIAL NONVOL 

ALSO SETS DATA DIRECTION AND AND CS 



and 
and 



P2M_SHA'dOW, #(cl( 
P2M, P2M_SHAD0W 
csport, #csl 
clkport, ftclockl 
dioport, #dol 
csport, #csh 
dioport , #doh 
clkport, #clockh 
clkport, #clockl 
dioport , #dol 



start by clearing the bi- 



set the chip select 
set the data out high 



END OF CODE WRITE 



ENDWRITE : 




and 


csport, #csl 


or 


csport, #csh 


■ or 


P2M_SHAD0W, #doh 


Id 


P2M, P2M_SHADOK 


ENDWRITELOOP: 




Id 


temph , dioport 


and 


temph, #doh 


jr 


z,ENDWRITELO0P 


and 


csport, #csl 


or 


P2M_SHAD0W, #clockh 


and 


P2M_SHAD0K, #dol 


Id 


P2M, P2M_SHAD0W 


ret 




; SERIAL OUT 




; OUTPUT THE 


BYTE IN SERIAL 


SERIALOUT: 






P2M SHADOW, # (dol & 


Id 


P2M, P2K SHADOW 




tempi, #8H 



reset the chip select 

; delay 
set the chip select 

; Set the data line to input 

; set port 2 mode forcing input mode data 

; read the port 
; mask 

; if the bit is low then loop until done 
reset the chip select 

Reset the clock line to read smart button 
; Set the data line back to output 
; set port 2 mode forcing output mode 



Set the clock and data lines to outputs 

; set port 2 mode forcing output mode dat 
; set the count for eight bits 
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SERIALOUTLOOP : 



rlc 


serial 


jr 


nc, ZEROOUT 


or 


dioport, #doh 


or 


clkport, #clockh 


and 


clkport, #clockl 


and 


dioport, #dol 


djnz 


tempi , SERIALOUTLOOP 


ret 




T: 
and 


dioport, idol 


or 


clkport, #clockh 




clkport, #clockl 




dioport , #dol 


djnz 


tempi, SERIALOUTLOOP 



get the bit to output into the carry 
; output a 2ero if no carry 

set the data out high 

; set the clock. high 

; reset the clock low 
reset the data out low 

; loop till done 
; return 

reset the data out low 

; set the clock high 
; reset the clock low 
■ reset the data out low 

; loop till done 



SERIAL IN 

INPUTS A BYTE TO SERIAL 



SERIALINLOOP: 



scf 
•DONTSET : 

rlc 

djnz 



P2M_SHAD0W, #doh 
P2M, P2M_SHAD0W 
tempi, #8H 

clkport, #clockh 

temph, dioport 
temph, #doh 

z , DONTSET 



clkport, iclockl 
tempi, SERIALINLOOP 



Force the data line to input 

set port 2 mode forcing input mode dat 

set the count for eight bits 

set the clock high 
reset the carry flag 
read the port 
mask out the bits 

set the carry flag 



loop till done 



; TIMER UPDATE FROM INTERUPT EVERY 0.2 56] 

SkipPulse : 

tra SKIPRADIO, #N0INT 

; jr nz, NoPulse 

or IMR, IRadioImr 
; NoPulse : 

iret 



;If the 'no radio interrupt' 
;flag is set, just leave 
; turn on the radio 



SKIPRADIO, #N0INT 
nz, NoEnable 
IMR, #RadioImr 



decw 
TOExtDone : 



;If the 'no radio interrupt' 
;flag is set, just leave 
; turn on the radio 



xtension 



; Test the AC line in 

; If it's low, mark zero crossing 
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LineCtr 




; Count the high time 


jr 


LineDone 






LowAC : 








cp 


LineCtr, #08 


; If 


the line was low before 


jr 


ult, HighAC 




; then one-shot the edge of the line 


Id 


LinePer, LineCtr 




; Store the high time 


clr 


LineCtr 




; Reset the counter 


Id 


PhaseTMR, PhaseTime 


; Res 


et the timer for the phase control 


LineDone : 








cp 


PowerLevel, #20 




; Test for at full wave of phase 




uge, PhaseOn 


; If 


not, turn off at the start of the phas 








; If we 1 re at the minimum. 


i r 


z, PhaseOff 




; then never turn the phase control 


dec 


PhaseTMR 




; Update the timer for phase control 








are past the zero poxnt, turr 










and 


PhasePrt, #~PhaseHigh 




; Turn off the phase control 


jr 


PhaseDone 






fJghaseOn: 








or 


PhasePrt, #PhaseKigh 




; Turn on the phase control 


':BiaseDone : 

=F 








tm 


P3, #00000010b 




; Test the RPM in pin 


jr 


nz, IncRPMDB 


; If 


we're high, increment the filter 


; fiecRPMDB : 








=7 c p 


RPM FILTER, #00 




; Decrement the value of the filter 


jr 


z, RPMFiltered 




; we're not already at zero 




RPM_FILTER 






jr 


RPMFiltered 






'IncRPMDB: 








inc 


RPM_FI LTER 




; Increment the value of the filter 


jr 


nz, RPMFiltered 




and back turn if necessary 


dec 


RPM_FILTER 






;T|.PMFiltered: 








cp 


RPM_FILTER, #12 




; If we've seen 2.5 ms of high time 








; then vector high 


cp 


RPM_FI LTER, #(255 - 12; 












; then vector low 


VectorRPMLow 








clr 


RPM_FILTER 






jr 


TaskSwitcher 






VectorRPMHig 








Id 


RPM_FI LTER, #0FFH 






TaskSwitcher 








tm 


TOEXT, #00000001b 




; skip everyother pulse 




nz, SkipPulse 






tm 


TOEXT, #00000010b 




; Test for odd numbered task 


jr 


nz,TASKI357 




; If so do the 1ms timer update 


tm 


TOEXT, #00C00100b 




; Test for task 2 or 6 


jr 


z, TASK04 




; If not, then go to Tasks 0 and 4 


tm 


TOEXT, #00001000b 




; Test for task 6 


jr 


nz, TASK 6 




; If so, jump 








; Otherwise, we must be in task 2 


TASK2 : 










or IMR, #RE7URN_IMR 
ei 




; turn on the interrupt 




call STATEMACHINE 


; do 


the motor function 




iret 







TASK04 : 
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or 

push 
srp 
call 
pop 



IMR, # RETURN I MR 



#TIMER_GROUP 
switches 



; turn on the interrupt 

; save the rp 
set the rp for the switches 
; test the switches 



IMR, #RETURN_IMR 
TIMER4MS 



; turn on the interrupt 
; do the four ms timer 



IMR, # RETURN IMR 



the interrupt 



p0,#DOWN_C0MP 
nz, HigherDn 



; Test down force pot. 

; Average too low — output pulse 

; take pulse output low 



"DnPotDone: 
: powerUp : 
•ffigherUp: 
UpPotDone : 



BlockedBeam: 
NOFAIL: 



pO, #UP_COMP 
nz, HigherUp 



P3, # (~UP_OUT) 
UpPotDone 



POT_COUNT 
nz, GoTimer 



UP_TEMP 
DN TEMP 



DNFORCE, #63 

DN FORCE , DN TEMP 



UP_TEMP 
DN TEMP 



! GRP 



#LEARNEi _ 
AOBSTEST 
nz, NOFAIL 
AOBSTEST, #11 
AOBSF,#00100000b 
nz, BlockedBeam 
AOBSF,*1000000Gb 



AOB; 



, #cc:co 



RadioTimeOut 
OBS_COUNT, #00 
z, TEST125 



Output a high pulse 

; Increase measured duty cycle 



; Test the up force pot. 

; Average too low — output pulse 



; Take pulse output loi 



; Output a high pulse 

; Increase measured duty cycle 

; Increment the total period for 

; duty cycle measurement 

; Divide the pot values by two to obta 

; a 64-level force range 



Subtract from 63 to reverse the direction 
.ate pot. values every 255 



set the register pointer 

; decrease the aobs test timer 

; if the timer not at 0 then it didnot fail 
if it failed reset the timer 

; If the aobs was blocked before, 
don't turn on the light 

; Set the break edge flag 



; Set the single 



ak flag 



; Test for protector timed out 

; If it has failed, then don't decrement 
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OBS COUNT 



; Decrement the timer 



PPointDeb: 



DecPPDeb : 



PPDebDone: 
TEST125: 



; Disable ints while debouncer being modified (16us) 
PPointPort, #PassPoint ; Test for pass point being seen 
nz, IncPPDeb ; If high, increment the debouncer 



CheckSpeed: 

Norma IP.ampFl; 
SpeedUp: 
RampSpeedUp: 
Slow Down : 

RunReduced : 

PoverAtKin: 
StopMotor : 



and 


PPOINT_DEB, #00000011b 


; Debounce 3-0 


j r 


z, PPDebDone ; 




dec 


PPOINT_DEB 


; Decrement the debouncer 


jr 


PPDebDone 




inc 


PPOINT_DEB 


; Increment 0-3 debouncer 


and 


PPOINT_DEB, #00000011B 








± r roiieu over, 


Id 


PPOINT DEB, #00000011B 


} keep it at the max . 






; Re— enable interrupts 


inc 


tl25ms 


; increment the 125 mS timer 


cp 


1 1 2 5ms ,#125 


; test for the time out 


jr 


z, ONE25MS 


; if true the jump 


cp 


1 1 2 5ms #63 


; test for the other timeout 


Dr 


nz, N125 




ca 


FAULT B 










iret 






cp 


RsMode , #00 


; Test for not in RS232 mode 


jr 


z, CheckSpeed 


If not, don't update RS timer 


dec 


RsMode ; 


Count down RS232 time 






; If not done yet, don't clear wall 


Id 


STATUS , # CHARGE 


; Revert to charging wall control 








jr 


z, StopMotor 


If so, turn off the FET ' s 


tm 


BLINK_HI , #10000000b 


; If we are flashing the warning light. 




z, StopMotor ; 


S^cial^case 3 — us m ° t0r 


cp 


L A C, #07 6H 




• r 


LAC, tOTOH 1 ; 


• when we ' re S going to "the °iea d l" "t 


cp 




If we're learning limits, 


jr 


uge, RunReduced 


; then run at a slow speed 


'cp 


RampFlag, IRAMPDOWN ; 


Test for slowing down 


j r 


z, SlowDown 


If so, slow to minimum speed 


cp 


PowerLevel, MaxSpeed 


; Test for at max. speed 


Dr 


uge, SetAtFull 


; If so, leave the duty cycle alone 


inc 


PowerLevel 


; Increase the duty cycle of the phase 


jr 


SpeedDone 




cp 


PowerLevel, MinSpeed 


; Test for at min. speed 


jr 


ult, RampSpeedUp 


; If we're below the minimum, ramp up to it 


jr 


z, SpeedDone 


If we're at the minimum, stay there 




PowerLevel 


; Increase the duty cycle of the phase 


jr 


SpeedDone 


Id 


RampFlag, # FULLS PEED 


; Flag that we're not ramping up 


cp 


MinSpeed, #8 ; 


Test for high minimum speed 


jr 


ugt, PowerAtMin 




Id 


PowerLevel, #8 


; Set the speed at 40% 


jr 


SpeedDone 




Id 


PowerLevel, MinSpeed 


; Set power at higher minimum 


jr 


SpeedDone 
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protection) 
SetAtFull: 
SpeedDone : 

SixtySpeed: 



PowerLevel 
SpeedDone 

RarapFlag, # FULLS PEED 

LinePer, #36 
uge, FiftySpeed 



that the motor is stopped (FMEA 



Set flag for done with ramp-up 



Test for 50Hz or 60Hz 

; Load the proper table 



di ; Disable interrupts to avoid pointer collizion 

srp #RadioGroup ; Use the radio pointers to do a ROM fetch 

Id pcinterh, #KIGH (SPEED_TABLE_60) ; Point to the force look-up table 

Id pointerl, *LOW ( SPEED_TABLE_60) 

add pointerl, PowerLevel ; Offset for current phase step 

adc pointerh, #00H 

ldc addvalueh, Spointer ; Fetch the ROM data for phase control 

Id PhaseTime, addvalueh ; Transfer to the proper register 

ei ; Re-enable interrupts 

jr WorkCheck ; Check the worklight toggle 



WorkCheck: 
; 4-22-97 



SKIPAUXLEARNSW: 



; Disable interrupts to avoid pointer collisior 
#RadioGroup ; Use the radio pointers to do a ROM fetch 

pointerh, #HIGH ( SPEED_TABLE_50 ) ; Point to the force look-up table 
pointer!, #LOW (SPEED_TABLE_50) ; 

pointerl, PowerLevel ; offset for current phase §tep 

pointerh, #00H 

addvalueh, @pointer ; Fetch the ROM data for phase control 

PhaseTime, addvalueh ; Transfer to the proper register 

; Re-enable interrupts 



call 
clr 
inc 



# LEARN EE GRP 



Re-set the RP 



EnableWorkLight, #01100000B 
EQ, Dontlnc 
EnableWorkLight 



AUXLEARNSW, #0FFh 
z, SKIPAUXLEARNSW 
AUXLEARNSW 

ZZWIN, #OFFK 
z , TESTFA 
ZZWIN 

FAULT E 
T125MS 
D0G2 

SDISABLE 

nz,D012 

SDISABLE 

0NEP2, #00 
z , INCLEARN 
ONEP2 

learnt 
learnt, #0H 

n z , LEARKT OK 

learnt 



;Has the button already been held for 10s? 
;Work light function is added to every 
; 125ms if button is light button is held - 
;for 10s will iniate change, if not held 
;down will be cleared in switch routine 

; test for the rollover position 
; if so then skip 



test for the roi: 

if so skip 

if not increase • 



; call the fault blinker 

; reset the timer 

; incrwease the second watch dog 

; count off the system disable timer 

; if not rolled over then do the 1.2 sec 

; else reset to FF 

; test for 0 

; if counted down then increment learn 

; else down count 



; increase the learn timer 

; test for overflow 

; if not 0 skip back turning 



eraset 
eraset, #0K 
nz, ERASETOK 



increase the erase timer 

test for overflow 

if not 0 skip back turning 



Page 73 of 97 



ERASETOK: 



iret 
blinker 



RegFlash: 
FlashOff: 
FlashOn: 



NOAOBS FAULT: 
FIRSTFC: 



inc 


FAULTTIME 


cp 


L_A_C, #07 OH 


jr 


ult, DoFaults 




LAC, #071H 


jr 


z, FastFlash ; 


tm 
m 


FAULTTIME # 00000100b 


3 r 


z, FlashOn 




ledport, #ledh 


D r 


NO FAULT 


an 




D r 


NOFAULT 


tm 


FAULTTIME, #00000Q10b 


jr 


z, FlashOn 


jr 


FlashOff 


cp 


FAULTTIME, #8 Oh 


jr 


nz , FIRSTFAULT 


clr 


FAULTTIME 


clr 


FAULT 


cp 


FAULTCODE, #05h 


j r 


UGE,GOTFAULT ; 


cp 


CMD DEB,#0FFH 




nz , TESTAOBSM ; 


cp 


FAULTCODE, #03h 




z, GOTFAULT 


1 h 


FAULTCODE , # 0 3h 




FIRSTFAULT 


tm 


AOBSF, #0000 0001b 




z , NOAOBS FAULT 


tm 


AOBSF, #O00OC010b 


j r 




Id 


FAULTCODE, #04 h 




GOTFAULT 


CP 


FAULTCODE, #04h 


jr 


z, GOTFAULT 


Id 


FAULTCODE, #04h 




FIRSTFC 


tm 


P3,#00000001b 




z, AOBSSK 


cp 


FAULTCODE , # Olh 


j r 


z, GOTFAULT 


Id 


FAULTCODE, # Olh 




FIRSTFC 


cp 


FAULTCODE, #02h 




z, GOTFAULT 


Id 


FAULTCODE, #02h 


jr 


FIRSTFC 


Id 


FAULT, FAULTCODE 


swap 


FAULT 




FIRSTFC 


clr 


FAULTCODE 


and 


AOBSF, #11111100b 



; increase the fault timer 
Test for in learn limits mode 
If not, handle faults normally 
Test for failed learn 
If so, blink the LED fast 

; Toggle the LED every 250ms 



; Turn off the LED for blii 
; Don't test for faults 



the LED for blink 



; Toggle the LED every 125ms 



; test for the end 

; if not timed out 

; reset the clock 

; clear the last 

; test for call dealer code 
et the fault 

,- test the debouncer 
f not set test aobs 

; test for command shorted 

; set the error 

; set the code 



test for the skiped aobs pulse 

if no skips then no faults 

test for any pulses 

if no pulses find if hi or low 

else we are intermittent 

set the fault 

if same got fault 

test the last fault 

if same got fault 

set the fault 

test the input pin 

jump if aobs is stuck hi 

test for stuck low in the past 

set the fault 

set the fault code 

test for stuck high in past 
set the fault 
set the code 



set the code 



; clear the fault code 
; clear flags 
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FIRSTFAULT: 



RegularFault 



FAULTTIME, #00000111b 
nz, RegularFault 

HOUR_TIMER 

HOUR_TIMER_LO, #00011111b 
nz, RegularFault 

AOBSF, #01000000b 



FAULT, #00 

z, NOFAULT 

FAULT FLAG, #0FFH 

Code Fl ag , # REG LEARN 

z,TESTSDI 

FAULT, FAULTTIME 

ULE, TESTSDI 



If one second has passed, 
increment the 60min 

Increment the 1 hour timer 
If 32 seconds have passed 
; poll the radio mode 

Set the 'poll radio' flag 



test for no fault 

set the fault flag 

test for not in learn mode 

if in learn then skip setting 



FAULTTIME, # 00001000b 
nz , BITONE 
ledport, #ledl 



BITONE : 
^TESTSDI : 



off the led 



r -NOFAULT : 



clear the flag 



Four ms timer tick routines and aux light function 



TESTPERIOD: 



cp 


RPMONES, #00H 


jr 


z, TESTPERIOD 




RPMONES 


di 




clr 


RPK_COUNT 


clr 


BRPM COUNT 


ei 




jr 


RPMTDONE 


cp 


RPMCLEAR, #00H 


jr 


nz , RPMTDONE 


Id 


RPMCLEAR, #122 


cp 


RPM_COUNT, #50 


jr 


ugt, FAREV 


di 




clr 


RPM_COUNT 


clr 
ei 


BRPM_COUNT 


clr 


FAREVFLAG 


jr 


RPMTDONE 


Id 


FAULTCODE, #06h 


Id 


FAREVFLAG, #088H 




pC, #LOK i-WORKLK 


Id 


REASON, #8 OK 


call 


SET_AREV STATE 


dec 


RPMCLEAR . 



for the end of the one sec timer 
ne sec over then test the pulses 
; over the period 
; else decrease the timer 

; start with a count of 0 



; test the clear test timer for 0 
if not timed out then skip 

; set the clear test time for next cycle .5 
; test the count for too many pulses 
; if too man pulses then reverse 

; clear the counter 
; clear the counter 

; clear the flag temp test 
; continue 

; set the fault flag 
; set the forced up flag 
; turn off light 
rpm forcing up motion 

; set the autorev state 

; decrement the timer 
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SKIPLIGHTE: 



LIGHT1S, #00 " 
z, SKIPLIGHTE 
LIGHT1S 

R_DEAD_TIME 
RTO, #RDROPTIME 
ult, DONOTCB 
CodeFlag, iLRNOCS 
uge, DONOTCB 
CodeFlag 

RTO 

nz,RTOOK 
RTO 



; test for the end 

; down count the light time 



; test for the radio time out 
; if not timed out dorrot clear b 
; If we are in a special learn mode, 
then don't clear the code flag 

; else clear the b code flag 

; increment the radio time out 

; if the radio timeout ok then skip 



PRSWCLOSED: 



LEARNDBOK : 



dec 
jr 



RRTO, # OFFH 
z, SKIPRRTO 
RRTO 

SKIPRADIO, #00 
nz, LEARN DBOK 

RsMode, #00 
nz, LEARNDBOK 
psport, #psmask 
z, PRSWCLOSED 
LEARN DB, #00 
z, LEARNDBOK 
LEARN DB 
LEARNDBOK 



LEARN DB, # OFFH 
Z , LEARNDBOK 
LEARN DB 



; test for roll 
; if so then skip 



; Test for EE PROM communication 
If so, skip reading program switch 

; Test for in RS232 mode, 
if so, don't update the debouncer 

; Test for program switch 
if the switch is closed count up 
test for the non decrement point 
if at end. skip dec 



; AUX OBSTRUCTION OUTPUT AND LIGHT FUNCTION 



AUX LIGHT: 

fcest_iight_ 



3r 



LIGHT_FLAG, # LIGHT 

z , dec_l lght 

LIGHT1S, +00 

z,N01S 

LIGHT1S, #1 

nz,N01S 

pO, #WORKLIGHT 

FLASH_FLAG, # FLASH 
nz, dec_light 
V.AC FLASH 
FLAS H_DE LAY 
nz, dec_light 



cp STATUS, #RSSTATUS 

jr z, BlinkDone 

; Toggle the wall control LED 

cp STATUS , tWALLOFF 

jr z, TurnltOn 



TurnltOff : 



test for no f. 
if not skip 
test for time* 
if not skip 
toggle light 
oneshoted 



cation flash ti) 



; Test for in RS232 mode 
If so, don't blink the LED 



See if the LED : 



STA 



STATUS, # CHARGE 
SWITCH_DELAY, #CMD_DEL_EX 



, # FLASH TIME 



; Turn the light on 
Reset the delay time for charge 
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clr 

dec_light: 



FLAS H_COUNTER 

nz,dec_light 

FLASH_FLAG 

L I GHT_T I MER_H I , #OFFH 

z, exit_light 

TOEXT, #OO01O0OOb 

nz, exit_light 

L I GHT_T I ME R 

nz, exit_light 

pO, # (~LIGHT_ON) 

L_A_C, #00 

z, exit_light 

L_A_C 

ledport, #ledh 



; test for the timer ignore 
; if set then ignore 
; Decrement the light every 8 ms 
(Use TOExt to prescale) 

; if timer 0 turn off the light 

; turn off the light 

; Test for in a learn mode 
If not, leave the LED alone 

; Leave the learn mode 
turn off the LED for program mode 



; MOTOR STATE MACHINE 



SIATEMACHINE : 



MOTDEL, #0FFH 
z , MOTDELDONE 
MOTDEL 

p2, # FALSE IR 
DOG2, #8 
ugt, START 
STATE, #6 

ugt, start 
z, stop 
STATE, #3 
z , start 
STATE, #0 

STATE, #1 

z, up_di recti on 

STATE, #2 

STATE%4 

z, dn_direction 



Test for max. motor delay 
if do, don't increment 
update the motor delay 

; toggle aux output 

; test the 2nd watchdog for pr 

; if problem reset 

; test for legal number 

; if not the reset 

; stop motor 6 

; test for legal number 

; if not the reset 
; test for autorev 
; auto reversing 0 
; test for up 

; door is going up 1 
; test for autorev 
; door is up 2 
; test for autorev 

; door is going down 4 
; door is down 5 



AUTO_REV ROUTINE 



auto_rev: 



dec 
dec 



FAREVFLAG, #08SK 

nz , LEAVEREV 

pO, #LOW (-WORKLIGHT) 

FAREVFLAG 

MOTDEL, #10 
ult, AREVON 



. for the forced up flag 



; turn off light 

; one shot temp test 

; Test for 4 0 ms passed 

; If not, keep the relay on 



and pO, #LOW(~MOTOR_UP & ~MOTOR_DN) ; disable motor 



HOLDFREV 
LIGHT_FLAG, #11! 



AUTO_DELAY 
BAUTO DELAY 



; kick the dog 

; hold off the force reverse 
; force the light on nc blink 

; wait for .5 second 
wait for .5 second 
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nz, arswitch 



test switches 



or p2,#FALSEIR 
;LOOK FOR LIMIT HERE (No) 



Id 


REASON, #4 OH 




LAC, #075H 


jP 


nz, SET UP NOBLIJ 


ad 


L_A_C, #07 6H 


jp 


SET UP NOBLINK 


arswitch: 






REASON #00^ 


1 




cp 


SW_DATA, #CMD SW 




SW DATA 


ei 




jP 


z, SET_STOP_STATE 




REASON , # 1 OH 


cp 


RADIO_CMD, * OAAH 


jP 


z , SET_STOP_STATE 


exit_auto_ 


rev : 


ret 




HDLDFREV: 




Id 


RPMONES,#2 4 4 


'M Id 


RPMCLEAR, #122 


di 




clr 


RPM COUNT 


clr 


BRPK_COUNT 


ex 





; set aux output for FEMA 

; set the reason for the change 
Check for learning limits, 
If not, proceed normally 

; set the state 

; set the reason to command 

; test for a command 



if so then stop 

set the reason as radio command 
test for a radio command 
if so the stop 



the hold off 
; clear rpm reverse . 5 sec 



rt with a count of 0 
rt with a count of 0 



DOOR GOING UP 



cp OneFass, STATE 

jr z, UpReadv 
ret 

call HOLDFREV 

Id LIGHT_FLAG, SLIGHT 

and p0, #LOW (~MOTOP_DNt 



p0, #LIGHT_0N 
MOTDEL, #10 
ule, UPOFF 

P2M_SHADOW, #~BLINK_PIN 
P2M, P2M_SHADOW 

F2, #blikk_f:k 

BLINK 

BLINK_HI, #10000000fc 
z, NotUpSlow 



CheckUpBlink: 
and 



; kick the dog 

; Test for the memory read one-shot 

; If so, continue 

; Else wait 

; hold off the force reverse 

; force the light on no blink 
disable down relay 

; turn on the light 

; test for 40 milliseconds 

; if not timed 

; Turn on the blink output 

' ; Turn on the blinker 

; Decrement blink time 

; Test for pre-travel blinking done 
If not, delay normal motor travel 



UPON: 

UPOFF 



or p0,#CMOTOR_UP I L2GHT_ON) ; turn on the motor and light 



FORCE_IGNORE , *: 
nz, SKIPUPRPK 

ugt7SKIPU??.?v 
FAULTCODE, #05h 



; test fro the end of the force igno: 
if not donot test rpmcount 

; test for less the 2 pulses 
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cp 


FORCE IGNORE, #00 




j r 


nz,test up sw pre 




TEST UP FORCE 






di 






dec 


RPM_TIME_OUT 




dec 


BRPM_TIME_OUT 




ei 






jr 


z, failed up rpm 




cp 


RampFlag, #RAMPUP 




jr 


z, test up sw 




TestUpForcePot : 




di 






cp 


RPM PERIOD HI, UF FORCE HI ; 


jr 


ugt, failed_up_rpm 




jr 


ult, test up sw 




cp 


RPM_PERIOD_LO, UP_FORCE LO ; 


jr 


ult, test up sw 




failed_up rpm: 




Id 


REASON, #2 OH 






LAC, #076H 




jP 


nz, SET STOP STATE 




Id 


LAC, #077H 






SET STOP STATE 




tMst up sw pr 






di 






dec 


FORCE_IGNORE 




dec 


B FORCE_I GNORE 




tf.e;St_up sw: 






di 






Id 


LIM_TEST HI, POSITION 


HI 


Id 


LIM_TEST_LO, POSITION 


"lo 


sub 


LIM TEST LO, UP LIMIT 


"lo 


sbc 


LIM TEST HI, UP LIMIT* 


"hi 


cp 


POSITION_HI, #0B0H 




jr 


ugt, UpPosKnown 




cp 


POSITION_HI, #050H 




jr 


ult, UpPosKnown 










tjgPosUnknown : 






sub 


LIM_TEST LO, #062H 




sbc 


LIM TEST HI, #07FH 




add 


LIM TEST LO, DN LIMIT 


LO 


adc 


LIM_TEST_HI, DN_LIMIT~ 


_HI 


UpPosKnown : 






ei 






cp 


L_A_C, #070H 




jr 






cp 


LIM_TEST_HI, #00 




jr 


nz, TestForPastUp 




cp 


LIM TEST LO, #00 




jr 


z, AtUpLimit 





TestForPastUp: 
close) 

jr 

AtUpLimit : 



ReLearnLim: 



LIM_TEST_HI, #10000C00b 

REASON, #5 OH 

L_A_C, #072H 

z, ReLearnLim 

L_A_C, #07 6H 

nz, SET_UP_POS_STATE 

L_A_C, I077H 

SET_UP_POS_STATE 



test timer for done 

if timer not up do not test force 



decrease the timeout 

; decrease the timeoi 



; Check for ramping up the force 
If not, always do full force check 



; turn off the interrupt 
Test the RPM against the force setting 



set the reason as force 
If we're learning limits, 
then set the flag to store 



Calculate the distance from the up limit 



Test for lost door 

; If not lost, limit test is done 



Calculate the total travel distance allowed 
from the floor when lost 



If we're positioning the door, forget the lii 
; and the wall control and radio 
; Test for exactly at the limit 
; If not, see if we've passed the limit 



; Test for a negative result (past the lij 

; If so, set the limit 

; set the reason as limit 
If we're re-learning limits, 
jump 

If we're learning limits, 

; then set the flag to store 



SET UF PCS STATE 



L_A_C, #070H 
z,NotUpSlow 



Test for positioning the up limit 
; If so, don't slow down 
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LIM_TEST_HI, #HIGH(UPSLOWSTART) ; Test for start of slowdown 

nz, NotUpSlow ; (Cheating — the high byte of the 'number is zer. 

LIM_TEST_LO, #LOW (UPSLOWSTART) 
ugt, NotUpSlow 



RampFlag, # RAMP DOWN 

REASON, #1 OH 
RADIO_CMD, #0AAH 
z , SET_STOP_STATE 
REASON, #00H 



Set the slowdown flag 

; set the radio command reason 

; test for a radio command 

; if so stop 

; set the reason as a command 

; test for a command condition 



ret 



REASON, #7 OH 
MOTORJTIMER 
z,SET_STOP STATE 



.EEAVELIGHT : 



F ARE V FLAG, #088H 

nz, LEAVELIGHT 

pO, #LOW (-WORKLIGHT) 

UPNOFLASK 

LIGHT_FLAG, #0OH 



kick the dog 

test for the forced up flag 



off light 

; skip clearing the flash flag 



allow blink 



.UPLIMOFF: 
and 

UPLIMON : 



pO, #LOW(~MOTOR_UP 5 ~MOTOR_DN) 

L_A_C, #073K ; ii 

Z,LACUPPOS 

SW_DATA, #LIGHT_SW ; lj 

z , work_up 

REASON, #10H 

RADI 0_CMD , # 0 AAH 

z, SETDNDIRSTATE 

REASON, #00H 

SW_DATA, #CMD_SK 
SW_DATA 



Test for 40 ms passed 
:, keep the relay on 

disable motor 

've begun the learn limits cycle, 
then delay before traveling 
sw debounced? 

set the reason as a radio ccmmar 

test for a radio cmd 

if so start down 

set the reason as a command 

command sw debounced? 



z, SETDNDIRSTATE 



LACUPPOS: 



StartLACDown: 



ONEP2,#10 
SET_DN_DIR_STATE 



MOTORJT IMER_H I , # K I GK { LACTIME ) ; 
uie, UpTimeO.K 

MOTOR_TIMER_HI, #HIGH (LACTIME) 

MOTOR_TIMER_LO, # LOW ( LACTIME ) 

MOTORJTIMER 
nz, up_pos_ret 



set the 1.2 sec timer 



Make sure we're , 



to the proper tii 



Count down more time 
If not timed out, lea- 
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work_up : 



L_A_C, #074H 

UP_LIMIT_HI 

UP_LIMIT_LO 

POSITION_HI 

POSITION_LO 

PassCounter, #030H 

SET DN DIR STATE 



pO, #WORKLIGHT 
LIGHT_TIMER_HI, #OFFK 
SW_DATA, #LOW ( ~LIGHT_SW ) 



Set state as traveling down in LAC 
; Clear the up limit 
; and the position for 
; determining the new up 
; limit of travel 

Set pass points at max. 

; Start door traveling down 



; toggle work light 
; set the timer ignore 
the worklight bit 



DOOR GOING DOWN 



DgWnReady : 

= g call 
; i clr 



OnePass, STATE 
2 , DownReady 



HOLDFREV 
FLASH_FLAG 
LIGHT_FLAG, # LIGHT 
pO, #L0W<~M0T0R_UP) 

pO, #LIGHT_ON 
MOTDEL, #10 
ule , DNOFF 



; kick the dog 

; Test for the memory read one- 
, continue 
; else wait 

; hold off the force reverse 
; turn off the flash 
; force the light on no blink 
off motor up 

; turn on the light 

; test for 40 milliseconds 

.' if not timed 



P2M_SHADOW, #~BLINK_PIN 
P2M, P2M_SHADOW 
P2, #BLINK_PIN 
BLINK 

BLINK_HI, #10000000b 
z, NotDnSlow 



; Turn on the blink output 

; Turn on the blinker 
; Decrement blink time 
; Test for pre-travel blink done 
; If not, don't start the motor 



pO, # (MOT OR_DN ! L! 

FORCE_IGNORE, #Ci 
nz, SKIPDNRPK 
RPM_ACOUNT, #02H 
ugt, SKIPDNREM 
FAULTCODE, #05h 

F0RCE_IGN0RE , #00 



; test fro the end of the force ignore 
if not donot test rpmcount 

; test for less the 2 pulses 



test timer for done 

if timer not up do not test force 



TEST_D0WN_F0RCE: 



RPM_TIME_OCT 
BRPM_TIME OUT 



z, failed_dn_rpm 
RampFlag, #RAMPUP 



TestDownFcrcePot : 



ult, test_dn_sw 
RPM_PERIOD_LO, DN FORCE : 



decrease the timeout 

; decrease the timeout 



; Check for ramping up the force 
If not, always do full force check 

; turn off the interrupt 
Test the RPM against the force setting 
if too slow then force reverse 

; if faster then we're fine 
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f ailed_dn_rpm: 



cp 


L_A_C, #074H 


; Test for learning limits 




jp 


z, DnLearnRev 


; If not, set the state normally 




tm 


POSITION_HI, UlOOOOOOb 


; Test for below last pass 


point 


3 r 


nz, DnRPMRev 


; if not, we're nowhere near the 


limit 


tm 


LIM_TEST_HI, #10000000b 


; Test for beyond the down 






nz, DoDownLimit 


; If so, we've driven into 


the" 1 " down 


DnRPMRev : 








Id 


REASON, #20H 


; set the reason as force 






POSITION HI, #0B0K 


; Test for lost, 




DP 


ugt, SET AREV STATE 


; if not, autoreverse normally 




cp 


POSITION HI, #050K 




jP 


ult, SET_AREV_STATE 






di 




; Disable interrupts 




Id 


POSITION HI, #07FH 


; Reset lost position for max. tr 


avel up 


Id 


POSITION_LO, #080H 








; Re-enable interrupts 




DP 


SET_AREV_STATE 




DnLearnRev : 








Id 


LAC, #075H 


; Set proper LAC 




jP 


SET_AREV_STATE 







Test for lost in mid travel 

If so, don't test for limit until 
; a proper pass point is seen 



=test_dn_sw_pre : 
di 
dec 
dec 

Q ~ di 

cp POSITION_HI, #050H 

jr ult, TestDnLimGood 

cp POSITI0N_HI, #0B0H 

jr ult, NotDnSlow 

. test Dr.LimGood : 

Id LIM_TEST_HI, DN_LIMIT_HI 

Id LIM_TEST_LO, DN_LIMIT_LO 

sub LIM_TEST_LO, POSITION_LO 

sbc LIM_TEST_HI, POSITION_HI 
ei 



DoDownLimit 



TESTRADIO: 



TESTFORCEIG: 



call sw dn: 



L_A_C, #07 OH 
uge, test_dn_time 
LIM_TEST_HI, #10000000b 
z, call_sw_dn 
LIM_TEST_LO, #(255 - 36! 
ugt, NotDnSlow 

REASON, #50H 
CMD_DEB, #0FFH 
nz, TESTRADIO 
REASON, #90H 
TESTFORCEIG 

LAST_CMD, #00 
nz , TESTFORCEIG 
CodeFlag, #BRECEIVED 
nz, TESTFORCEIG 
REASON, #0A0H 

FORCE_I GNORE , #00H 
z , NOAREVDN 
REASON, #6 Oh 
SET_AREV_STATE 

pO, #LOW (~M0T0R_DN; 
SET_DN_POS_STATE 



LIM_TEST_HI , #HIGH ( DNSLOWSTART ) 



're in the learn cycle, forget the limit 
and ignore the radio and wall control 
Test for a negative result {past the down 1 

. set the limit 

for 36 pulses (3") beyond the limit 
if not, then keep driving into the floor 



; set the reason as a 1: 
; test for the switch s - 



closed with the < 



11 held 
rol held 



for the last command being radio 
if not test force 
test for the b code flag 



set the reason < 



st the force ignore for done 
a rev if limit befo: 
early limit 
set autoreverse 



for- 



set the stat< 
Test for sta: 



. of slowdown 
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nz, NotDnSlow 

LIM_TEST_LO, #LOW { DNSLOWSTART ) 
ugt, NotDnSlow 



(Cheating — the high byte is zero) 



RampFlag, # RAMP DOWN 

REASON, #10H 
RADIO_CMD,#0AAH 
z, SET_AREV_STATE 
REASON, #00H 

SW_DATA, #CMD_SW 
SW DATA 



Set the slowdown flag 

; set the reason as radio command 

; test for a radio command 

; if so arev 

; set the reason as command 



; te 



for command 



j p z , SET_AREV_STATE 

test_dn_time : 

Id REASON, #7 OH 

decw MOTOR_T IMER 
j p z , SET_AREV_STATE 

test_obs_count : 

cp OBS_COUNT, #00 

jr nz, exit_dn_dir 

•cp FORCE_IGNORE, # (ONE_SEC 

jr ugt, exit_dn_dir 
cp LAST_CMD,#00 
z,OBSTESTB 
CMD_DEB, #0FFH 
nz, OBSAREV 

exit_dn_dir 

FLASH_FLAG,#OFFH 
FLASH_COUNTER, #2 0 
FLASK_DELAY, #FLASH_TIME 
REASON, #3 OH 
SET_AREV_STATE 

CodeFlag, #BRECEIVED 
nz, OBSAREV 



; set the reason as timeout 
decrement motor timer 



; Test the obs count 
; if not done, don't reverse 
; Test for 0.5 second passed 
; if within first 0.5 sec, ignore 
. for the last command from radio 



; if last command was a 

; test for the command s 

; if the command switch 

; do the autorev 

; otherwise skip 



radio test b 
witch holding 
is not holding 



set flag 
>r 10 flashes 
set for .5 Hz period 
set the reason as autoreverse 



DOOR DOWN 



DNLEAVEL : 

Id 

DNNOFLASH: 



DNLIMOFF: 

and 
DNLIMON : 



FARE V FLAG, #0 88H 

nz , DNLEAVEL 

pO, #LOW (-WORKLIGHT) 

DNNOFLASH 



LIGKT_FLAG r #O0H 



the dog 

for the forced up flag 



off light 
; skip clea: 



ing the flash flag 



MOT DEL, #10 
Ult, DNLIMON 



; Test for 40 ms passed 
; If not, keep the relay on 



p0,#LOW (~M0T0R_UP & ~M0T0R_DN ) ; disable motor 
; debounced? light 



SW_DATA, #LIGHT_SW 
z, work_dn 
REASON, #10H 
RAD 1 0_CKD i # 0 AAH 
z, SETUP DIRSTATE 
REASON, #00H 

SW_DATA,#CMD SW 



set the reason as a radio command 
test for a radio command 
if so go up 

set the reason as a command 
command sw pressed? 
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SW_DATA 

z, SETUPDIRSTATE 



ret 

SETUPDIRSTATE: 



0NEP2, #10 

SET UP DIR STATE 



set the 1.2 sec timer 



and 
dn_pos_ret : 
ret 

STOP 



pO, # WORKLIGHT 

LIGKT_TIM£R_HI, #0FFH 

SW DATA, # LOW ( ~ LIGHT SW ) 



; toggle work light 
; set the timer ignore 
Clear the worklight bit 



LEAVE ST OP : 



STOPNOFLASK : 



STOPMIDOFF: 
and 

STOPMIDON: 



FAREVFLAG, #0SSH 

nz, LEAVESTOP 

pO, # LOW (-WORKLIGHT) 

STOPNOFLASK 

LIGHT_FLAG, #0 0H 

MOT DEL, #10 
ult, STOPMIDON 



pO, #LOW (-MOTORJJP & ~MOTOR_DN) ; disable motor 
; debounced? light 



; kick the dog 

; test for the forced up flag 



turn off light 



allow blink 



; Test for 40 ms passed 
,- If not, keep the relay c 



SW_DATA, #LIGHT_SW 
z, work_stop 
REASON, #10H 
RADIO_CMD, #0AAH 
z, SET_DN_DIR_STATE 
REASON, #00H 



set the reason as radio command 
test for a radio command 
if so go down 

; set the reason as a command 



command 



' pressed? 



z, SET_DN_DI?_ST. 



pO,#WORKLIGHT 
LIGHT_TIMER_HI, #0FFH 
S W DAT A , # LOW ( ~ L I G K T ; 



toggle work light 
set the timer ignore 
the worklight bit 



; SET THE AUTOREV STATE 

SET_AREV_STATE : 

di 

cp L_A_C, #070H 

jr uge, LearningRev 

cp POSITION_HI, #020H 

jr ult, DoTheArev 

cp POSIT IOK_HI, #GD0H 

jr ugt, DoTheArev 



REASON, #02 OH 
uge, DoTheArev 
RADIO CKD 



; Test for learning limits, 

; If not, do a normal autoreverse 



; Look for lost postion 

; If not, proceed ; 

; Look for lost postion 

; If not, proceed ; 



commands 

; Don't respond to command 



radio 
t the radio command 
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; Otherwise, just ignore it 



STATE, #AUTO_REV 
RampFlag, #STILL 
PowerLevel 
SET ANY 



if we got here, then reverse motor 
Set the FET's to off 



LearningRev: 



Id 


STATE, #AUTO REV 


; it we got here, then reverse r 


Id 


RampFlag, # STILL 


; Set the FET's to off 


clr 


PowerLevel 




cp 


L_A_C, #0-7 5H 


; Check for proper reversal 


jr 


nz, ErrorLearnArev 


; If not, stop the learn cycle 


cp 


PassCounter, #030H 


; If we haven't seen a pass point, 


jr 


z, ErrorLearnArev 


; then flag an error 


GoodLearnArev: 


cp 


POSITION_HI, #00 


; Test for down limit at least 


jr 


nz, DnLimGood 


; 20 pulses away from pass point 


cp 


POSITION_LO, #20 




jr 


ult, MovePassPoint 


; If not, use the upper pass point 


jffiLimGood : 




and 


PassCounter, #10000000b 


; Set at lowest pass point 


GSbtDnLim: 




di 






Id 


DN_LIMIT_HI, POSITION HI 


; Set the new down limit 


Id 


DN LIMIT LO, POSITION LO 




add 


DN LIMIT LO, #01 


; Add in a pulse to guarantee r« 


adc 


DN_LIMIT HI, #00 




jr 


SET ANY 




=ErrorLearnArev : 




Id 


LAC, #071K 


; Set the error in learning state 


jr 


SET_ANY 


■MovePassPo: 






cp 


PassCounter, #02FK 


; If we have only one pass point, 


jr 
di 


z, ErrorLearnArev 


; don't allow it to be this 


add 


POSITION_LO, #LOW (FPOINTPULSES) ; Use the next pass point up 


adc 


POSITION_KI, #KIGH(PPOIN 


IPULSES) ; 


add 


UP LIMIT LO, #LOWi.P?OINT 


PULSES) 


ei 


UP_LIMIT_HI, #HIGH (FPOINTPULSES) ; 




PassCounter, #01111111b 


,- Set pass counter at -1 


jr 


GotDnLim 




SET 


THE STOPPED STATE 





al off the bio- 



SET_STOP_STATE : 



L_A_C, I070H 
uge, DoTheStop 
POSITION_HI, #020H 
ult, DoTheStop 
POSITION_HI, #0D0H 
ugt, DoTheStop 



Otherwise, we're lest 
:p REASON, #02 OH 

r uge, DoTheStop 

:lr RADIO CMD 



; If we're in the learn mode, 

; Then don't ignore anything 
; Look for lost postion 

; If not, proceed as normal 
; Look for lost postion 

; If not, proceed as normal 

ignore commands 

; Don't respond to command or radio 

; Throw out the radio command 
; Otherwise, 3ust ignore it 
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Id STATE, # STOP 

Id RampFlag, #STILL 

clr Power Level 

jr SET ANY 



or at the FET's 



SET THE DOWN DIRECTION STATE 

SET_DN_DIR_STATE : 

Id BLINK_HI, #0FFH 

call LookForFlasher 

tm P2, #BLINK_PIN 

jr nz, SET_DN_NOBLINK 

Id BLINK_LO, # OFFH 

Id BLINK_HI, #01H 

SET DN NOBLINK: 



; Initially disable pre-travel blink 
;Test to see if flasher present 
;If the flasher is not present, 
; don't flash it 

;Turn on the blink timer 



RampFlag, IRAMPUP 
PowerLevel, #4 
STATE, #DN_DIRECTION 
FARE V FLAG 



L_A_C 
uge 



#070H 
SET_ANY 



POSITION_HI, 
ult, SET_ANY 
POSITION_HI, 
ugt, SET_ANY 



; Set the flag to accelerate moto: 

; Set speed at minimum 

; energize door 

; one shot the forced reverse 

If we're learning the limits. 

Then don't bother with testing anythin 

Look for lost postion 

If not, proceed as normal 

Look for lost postion 

If not, proceed as normal 



FirstRun, #00 
nz, SET_ANY 

PassCounter, #01111111b 
z, SET_UP_DIR_STATE 
PassCounter, #01111111b 
z, SET_UP_DIR_STATE 
SET ANY 



If this isn't our first operation w 
; then ALWAYS head down 
; If we are below the lowest 

pass point, head up to see it 

; If our pass point number is 

then go up to find the position 

; Otherwise, proceed normally 



SET THE DOWN POSITION STATE 

SET_DN_POS_STATE : 
di 

Id STATE, #DN_P0S IT ION 

Id RampFlag, #STILL 

clr PowerLevel 
jr SET ANY 



load new state 



Stop the motor at the FET's 



SET THE UP DIRECTION STATE 

SET_UP_DIR_STATE : 

Id BLINK_HI, #0FFH 

call LookForFlasher 

tm P2, #BLINK_PIN 

jr nz, SET_UP_NOBLINK 

Id BLINK_LO, # 0 FFH 

Id BLINK_HI, #01H 

SET UP NOBLINK: 



; Initially turn off blink 
;Test to see if flasher present 
;If the flasher is not present, 
; don't flash it 

;Turn on the blink timer 



RampFlag, #RAMPUP 
PowerLevel, #4 



Set the flag t< 
Start speed at 
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STATE, #UP_DI RECTI ON 
SET ANY 



SET THE UP POSITION STATE 



SET UP POS STATE: 



Id STATE, #UP_POSITION 

Id RampFlag, #STILL 

clr PowerLevel 



at the FET ' : 



SET ANY STATE 



PrePPcint : 



P2M_SHADOW, #~BLINK_PIN 
P2M, P2M_SHADOW 
P2, #~BLINK_PIN 

PPOINT_DEB, #2 
ult, NoPrePPoint 



fcfoPrePPoint : 

and PassCounter, #01111111b 
PrePPciritDone : 



Turn on the blink output 
Turn off the light 



Test for pass point being seen 
If signal is low, none seen 



Flag pass poin 



; Flag pass poin 



push 



DoorlsShort : 



FirstRun, #OFFH 
BSTATE, STATE 

RPM_COUNT 
BRPM_COUNT 

AUTO_DELAY, #AUTO_REV_TIME ; 
BAUTO_DELAY, #AUTO_REV_TIME ; 
FORCE_IGNORE , #ONE_SEC 
BFORCE_IGNORE, #ONE_SEC 
RPM_PERIOD HI, flOFFH 



L_A_C, #070H ; I 

uge, LearnModeMotcr ; d< 

LIM_TEST_HI 
LIM_TEST_LO 

LIM_TEST_HI, DN_L I M I T_H I ; T« 
LIM_TEST_LO, DN_LIMIT_LO ; s< 
LIM_TEST_LO, UP_LIMIT_LO 
LIM_TEST_HI, UP_LIMIT_HI 
LIM_TEST_HI, #HIGH (SHORTDOOR) 
ugt, DoorlsNorm 
ult, DoorlsShort 
LIM_TEST_LO, # LOW (SHORTDOOR) 
ugt, ' DoorlsNorm 



; One-shot the first run flag DONE IN MAIN 
the backup state 

; clear the rpm counter 

the .5 second auto rev timer 

; set the force ignore timer to one sec 

; set the force ignore timer to one sec 

; Set the RPM period to max. to start 

; Flush out any pending interrupts 



le = 



rn mode, 

ravel distance 

limit tests 



the door 



shorter than 2 . 3M 



If we are shorter than 2.3M, 

then set the max. travel speed to 2/3 

Else, normal speed 



DoorSet: 

pop 

pop 



MotorTimeSe- 



MaxSpeed, #20 

LIM_TEST_LO 
LIM_TEST_HI 

MOTOR_TIMER_HI, #HIGH (MOTORTIME) 
MOTOR_TIMER_LO, #LOW (MOTORTIME ) 



Restore the limit tests 



RADIO_CMD 
RPM_ACOUNT 
S T ACKRE AS ON , REASON 



; one shot 

; clear the rpm active counter 
save the temp reason 
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Id STACKFLAG, #OFFH 

T URN_ON_L I GHT : 

call SetVarLight 
tm PO, #LIGHT_ON 

nz, lighton 



lightoff : 

Clr 
lighton: 



MOT DEL 



; set the flag 

; Set the worklight to the proper value 
; If the light is on skip clearing 

; clear the motor delay 



LearnModeMotor 



MaxSpeed, #12 ; Default to slower max. speed 

MOTOR_TIMER_HI, #HIGH (LEARNTIME) 
MOTOR_TIMER_LO, #LOW ( LEARNTIME ) 

MotorTimeSet ; set door to longer run for learn 



THIS IS THE MOTOR RPM INTERRUPT ROUTINE 



push 
srp 



RPMTIMEERROR : 



rp 

#RPM_GROUP 

rpm_temp_of , T0_OFLOW 
rpm_temp_hi, TOEXT 
rpm_temp_lo, TO 
IRQ, #00010000B 
, RPMTIMEOK 

rpir._temp_lo / #10000000B 
z, RPMTIMEOK 
rpm_temp_hiword 

RPM_FILTER, #128 
ult, RejectTheRPM 
P3, #00000010B 
nz, RejectTheRPM 



; save current pointer 

;point to these reg. 

; Read the 2nd extension 

; read the timer extension 

; read the timer 

; test for a pending interrupt 

; if not then time ok 

; test for timer reload 

; if no reload time is ok 

; if reloaded then dec the hi to resync 

; Signal must have been high for 3 ms befo: 

; the pulse is considered legal 

; If the line is sitting high, 

; then the falling edge was a noise pulse 



and imr, #11111011b 

Id divcounter, #03 
DivideRPMLoop : 
rcf 

rrc rpm_temp_of 

rrc rpm_temp_hi 

rrc rpm_temp_lo 

djnz divcounter, DivideRPMLoop 

Id rpm_period_lo, rpm_past_io 

Id rpm_period_hi, rpm_past_hi 

sub rpm_period_lc, rpm_temp_lo 

sbc rpm_period_hi , rpm_temp hi 



rpm_past_lo 
rpm_past_hi 



rpm_temp_lo 
rpm_temp_hi 



rpm_period_hi, # 
ult,SKIPC 



; turn off the interupt for up to SOOuS 

; Set to divide by 8 (destroys value in RPM_FILTER) 

; Reset the carry 

; Divide the number by 8 so that 

; it will always fit within 16 bits 

Loop three times (Note: This clears RPM_FILTER) 



find the period of the last pulse 



Store the current time for the 
next edge capture 

test for a period of at least 6.144mS 

; if the period is less then skip counting 



RPM_ACOUNT 
RampFlag, #RAM?UP 
z, MaxTimeOut 
STATE, #DN_DIRECTION 
z, DownTimeOu- 



; increase the rpm count 

; increase the rpm count 

; increase the rpm count 
; If we're ramping the speed up, 
then set the timeout at max. 

; If we're traveling down, 

; then set the timeout from the down forci 
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rcf 
rrc 



MaxTimeOut : 



DownTimeOut : 



rrc 
add 
GotTimeOut : 



rpm_time_out , UP_FORCE_HI 

rpm_time_out 
rpm_t ime_out , # 2 
GotTimeOut 



rpm_time_out , DN_FORCE_H I 



rpm_time_out 
rpm_t ime_ou t , 



BRPM_TIME_OUT, rpm_t ime_< 



Set the RPM timeout to be equal to the up force settim 

; Divide by two to account 
for the different prescalers 

; Round up and account for free-running prescale 



; Set the RPM timeout to be 500ms 



Set the RPM timeout to be equal to the down force setting 

; Divide by two to account 
for the different prescalers 

; Round up and account for free-running prescale 



Set the backup to the same value 



.on Counter 

Position is incremented when going down and decremented when 
going up. The zero position is taken to be the upper edge of the pass 
point signal (i.e. the falling edge in the up direction, the rising edge . 
the down direction) 



cp 


STATE, #UP_DIRECTION 


; Test for the proper direction of the counter 


jr 


z, DecPos 




£ cp 


STATE, #STOP 




" i r 


z, DecPos 




: cp 


STATE, #UP_POSITION 




P j r 


z, DecPos 




JncPos: 








POSITION 




- : cp 


PPOINT_DEB, #2 


; Test for pass point being seen 




ult, NoDnPPoint 


; If signal is low, none seen 








or 


PassCounter, #10000000b 


; Mark pass point as currently high 


=== j r 


CtrDone 


NoDnPPoint : 








PassCounter, *10000000b 


; Test for pass point seen before 


jr 


z, PastDnEdge 


; If not, then we're past the edge 


AtDnEdge : 




cp 


L_A_C, #07 4K 


; Test for learning limits 




nz, NormalDownEdge 


; if not, treat normally 


LearnDownEdge : 


di 






sub 


UP LIMIT LO, POSITION LO 


; Set the up position higher 


sbc 


UP_LIMIT_HI, POSITION HI 




dec 


PassCounter 


; Count pass point as being seen 


jr 


Lowestl 


; Clear the position counter 


NormalDownEdge : 




dec 


PassCounter 


; Mark as one pass point closer to floor 




PassCounter, #01111111b 


; Test for lowest pass point 


jr 


nz, NotLowestl 


; If not, don't zero the position counter 


Lowestl : 




di 






clr 


POSITION HI 


; Set the position counter back to zero 


Id 


P0SITI0N_L0, #1 




NotLowestl : 






cp 


STATUS, #RS STATUS 


; Test for in RS232 mode 


jr 


z, DontResetKal 13 


; If so, don't blink the LED 


Id 


STATUS, #WALLOFF 


; Blink the LED for pass point 


clr 


VAC FLASH 


; Set the turn-off timer 



DontResetWall3 : 
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PastDnEdge: 
NoUpPPoint: 
and 
jr 

DecPos: 



POSITION 
PPOINTJDEB, #2 
ult, NoUpPPoint 



UpPPoint: 



tm 

jr 



AtUpEdge 
ti 
j 

Lowest2 : 



di 
clr 



PassCounter, #10000000b 
nz, PastUpEdge 

PassCounter, #01111111b 
nz, NotLowest2 



ei 

NSftLowest2 : 

cp STATUS, #RSSTATUS 

jr z, DontResetWall2 

Id STATUS, #WALLOFF 

clr VACFLASH 

EpntResetWall2: 

inc PassCounter 

cp PassCounter, FirstRun 

: jr ule, PastUpEdge 

s Id PassCounter, FirstRun 



PastUpEdge 



PassCounter, ttlOOOOOOOb 



CtrDone : 
BejectTheRPM: 



Clear the flag for pass point high 



Test for pass point being seen 
If signal is low, none seen 



Test for pass point seen before 
If so, then we're past the edge 



Test for lowest pass point 
If not, don't zero the posi 



Set the position i 



nter back to zero 



Test for in RS232 mode 
If so, don't blink the LED 
Blink the LED for pass point 
Set the turn-off timer 



Mark as one pass point higher above 
Test for pass point above max. value 
If not, we're fine 

Otherwise, correct the pass counter 
Set the flag for pass point high befo 



THIS IS THE SWITCH TEST SUBROUTINE 
STATUS 

0 => COMMAND TEST 

1 => WORKLIGHT TEST 

2 => VACATION TEST 

3 => CHARGE 

4 => RSSTATUS — In RS232 moae, don't scan for switches 

5 => WALLOFF — Turn off the wall control LED 

SWITCH DATA 

0 => OPEN 

1 => COMMAND CMD_SW 

2 => WORKLIGHT LIGHT_SW 
4 => VACATION VAC_SK 



switches : 
ei 

; 4-22-97 

CP LIGHT_DEB,#OFFH ; is the light button being held? 

JR NZ,NotHeldDown ;if not debounced, skip long hold 
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NotHeldDown: 

CLR 
HeldDown: 



EnableWorkLight, #0ilO0O0OB ;has the 10 sec. already passed? 
GE, HeldDown 

EnableWorkLight', #01010000B 
LT, HeldDown 

EnableWorkLight, #10000000B ;when debounce occurs, set register 

;to initiate e2 write in mainloop 

HeldDown 
EnableWorkLight 



SW_DATA, #LIGHT_S\ 
STATUS, #WALLOFF 
ugt, start 
z, NoWailCtrl 
STATUS, #RSSTATUS 
Z, NOTFLASHED 
STATUS, #3 

STATUS^ 

z,VACATION_TEST 

STATUS, #1 

z , WORKLIGHT_TEST 



sSiMMAKD TEST: 



VACFLAG, #00H 

z , COMMAN D_TE ST 1 

VAC FLASH 
VACFLASH, #10 
ult, COMMAND_TESTl 
p3, #~CHARGE_SW 
p3, #DIS_SW 
VACFLASH, #60 
nz, NOTFLASHED 
VACFLASH 



NOTFLASHED: 



Clear all switches except for worklight 

; Test for illegal status 

; if so reset 
Turn off wall control state 

; Check for in RS232 mode 
If so, skip the state machine 

; test for illegal number 

; if it is 3 then goto charge 

; test for vacation 

; if so then jump 

; test for worklight 

; if so then jump 

; else it id command 

test for vacation mode 

; if not vacation skip flash 

; increase the vacation flash timer 
test the vacation flash period 

; if lower period skip flash 
; turn off wall switch 
; enable discharge 
■ test the time delay for max 

; if the flash is not done jump and 
; restart the timer 

; return 



-CHARGE SW 





P3, #DIS SW 


inc 


VACFLASH 


cp 


VACFLASH, #50 




ult, KeepOff 


Id 


STATUS, #CHARC 


Id 


S W I T CH_DE LAY , 


KeepOf f : 




ret 




COMMAND TEST1 






pO, #SWITCHES1 




nz, CMDOPEN 


tm 


PO, #SWXTCHES2 


jr 


nz, CMDOPEN 


CMDCLOSED: 




call 


DECVAC 


; call 


DECLIGHT 


cp 


CMD DEB, #0FFH 


jr 


z, SKIPCMDINC 


di 






CMD DEB 


inc 


BCMD_DE5 


ei 




SKIPCMDINC: 




cp 


CMD DEB, # CMD 


jr 


nz, CMDEXIT 


call 


CmdSet 


CMDEXIT: 





Turn off the circu 



. Update the off time 
If off time hasn't expired, 
keep the LED off 

; Reset the wall contrc 
Reset the charge timer 



; command sw pressed? 
; open command 

; test the second command input 

; closed command 

decrease vacation debounce 

; decrease light debounce 
; test for the max number 

if at the max skip inc 

; increase the debouncer 
; increase the debouncer 



; if not made then exit 
Set the command switch 
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CMDDELEXIT: 
ret 



p3, #CHARGE_SW 
p3,#~DIS_SW 

SWITCH_DELAY, #CMD_DEL_EX 

STATUS, # CHARGE 



set the delay time to 
; charge time 



L_A_C, #07 OH 
ult, RegCmdMake 
ugt , LeaveLAC 
SET_UP_NOBLINK 
CMDMAKEDONE 



Test for in learn limits mode 

; If not, treat as normal command 

If learning, command button exits 
; Set the up direction state 



; Test for learn button held 
If so, enter the learn mode 



srp 



LAST_CMD,#055H 
SW_DATA, #CMD_SW 
AUXLEARNSW, #100 
ugt, SKIP_LEARN 
RP 

# LEARNEE_GRP 
SETLEARN 
SW DATA 



set the last command as command 
set the switch data as command 
test the time 



call 
jSMDMAKEDONE : 
SKIP_LEARN: 



CMD_DEB, #0FFH 
BCMD_DEB, #0FFH 



turn on the light 

; turn on the light 



set the debouncer to ff one shot 
set the debouncer to ff one shot 



LeaveLAC: 



GoIntoLAC: 



L_A_C 

ledport, #ledh 
SET_STOP_STATE 
CMDMAKEDONE 



L_A_C, #07 OH 
FAULTCODE 
CodeFlag 
LEARNT, #0FFH 
ERASET, #0FFH 
CMDMAKEDONE 



; Exit the learn mode 

off the LED for program mode 



Starr the learn limits mode 

; Clear any faults that exist 
; Clear the regular learn mode 

Turn off the learn timer 

Turn off the erase timer 



p3, #-CHARGE_SW 
p3,#DIS_SW 
DELAYC, #16 

DELAYC 

nz.DELLOOP 

pO,#SWITCHESl 

nz , TESTWL 

DECVAC 

DECLIGHT 

DECCMD 

AUXLEARNSW , # 0 FFK 
CMDEXIT 



command switch open 
turn off charging sw 
enable discharge 
set the time delay 



; loop till delay is up 
; command line still high 
; if so return later 
if not open line dec all debouncers 



; turn off the aux learn switch 



STATUS, #WL TEST 
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WORKLIGHT TEST: 



tm 


pO, #SWITCHES1 


jr 


nz , TESTVAC2 


call 


DECVAC 


call 


DECCMD 


cp 


LIGHT DEB, #0FFH 




z, SKIPLIGHTINC 




LIGHT_DEB 


SKIPLIGHTINC: 






LIGHT DEB, #LIGHT MAKE 




nz, CMDEXIT 


call 


LightSet 




CMDEXIT 


LightSet : 




Id 


LIGHT DEB,#0FFH 


Id 


SW DATA, # LIGHT SW 


cp 


RRTO, #RDROPTIME 


jr 


ugt, CMDEXIT 


clr 


AUXLEARNSW 


T£STVAC2 : 




"f Id 


STATUS, #VAC_TEST 


.'■Z Id 


switch_delay, #VAC DEL 


M GHTDELEXIT: 




ret 





; command line still high 

; exit setting to test for vacatii 

decrease the vacation debouncer 

and the command debouncer 
; test for the max 
; if at the max skip inc 
; inc debouncer 

; test for the light make 
; if not then recharge delay 
; Set the light debouncer 
; then recharge 



; set the debouncer to max 
set the data as worklight 

; test for code reception 

; if not then skip the seting of flag 

; start the learn timer 



set the next test as - 
set the delay 



MACATIONJTEST: 



VACINCSKIP: 



tch delay , VACDELEXIT 



pO, #SWITCHES1 
nz, EXIT_ERP.OR 
DECLIGHT 
DECCMD 

VAC_DEB, #OFFH 
Z, VACINCSKIP 
VAC_DEB 

VAC FLAG, #0 0K 
z , VACOUT 



; command line still high 

; exit with a error setting open : 

; decrease the light debouncer 
decrease the command debouncer 

; test for the max 

; skip the incrementing 

; inc vacation debouncer 



VAC_DEB, #VAC_MAKE 
nz,VACATION_EXIT 
VacSet 

VACATION EXIT 



st for the vacation make poii 
it if not made 



VAC_DEB, #VAC_MAKE_OUT 
n z , VAC AT I ON_EX I T 
VacSet 

VACATION EXIT 



test for the vacation make point 
exit if not made 



Forget vacati 



push 
srp 



VAC_DEB, #0FFH 
AUXLEARNSW, #100 
ugt, SKI P_LEARNV 



? set the learn mode 
Turn on the worklight 



SKIP_LEARNV: 

Id VACCHANGE, #0AAK 



set the toggle data 
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cp RRTO, iRDROPTIME ; test for code reception 

jr ugt,VACATION_EXIT ; if not then skip the seting of fU 

clr AUXLEARNSW ; start the learn timer 
VACATION_EXIT: 

Id SWITCH_DELAY, #VAC_DEL_EX ; set the delay 

Id STATUS, # CHARGE ; set the next test as charge 
VACDELEXIT: 



call 


DECCMD 


; decrement the debouncers 


call 


DECVAC 




call 


DECLIGHT 




Id 


SWITCH_DELAY, #VAC_DEL EX 


; set the delay 


Id 
ret 


STATUS, # CHARGE 


; set the next test 



Sharge_ret : 
ret 



p3, #CHARGE_SW 
p3, #~DIS_SW 
SWITCH_DELAY 
nz, charge_ret 
STATUS, # CMD_TEST 



cp CMD_DEB,#O0H 

jr Z.SKIPCMDDEC 
di 

dec CMD_DEE 

dec BCMD_DEB 

'SKIPCKDOEC: 

cp CMD_DEB,#CMD_BREAK 

jr nz, DECCMDEXIT 

call CmdRel 

DECCMDEXIT : 



; test for the man number 
; if at the min skip dec 

; decrement debouncer 
; decrement debouncer 



; if not at break then exit 

; if not break then exit 



; and exit 



NormCmdBreak : 



L_A_C, #07 OH ; Test for in learn mo 

nz, NormCmdBreak ; if not, treat 

SET__STOP_STATE ; stop the door 



LIGHT_DEB, #00H 
z,SKIPLIGHTDEC 
LIGHT DEB 



LIGHT_DEB, # L I GHT_BREAK 
nz, DECLIGHTEXIT 
LIGHT DEB 



test for the min number 
if at the min skip dec 
decrement debouncer 



if not at break then exit 
if not break then exit 
reset the debouncer 



DECVAC : 

cp 



VAC_DEB, #00H 



test for the rain number 
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dec 
SKIPVACDEC: 



VACFLAG,#OOH 
z,DECVACOUT 



if at the min skip dec 

; decrement debouncer 



test for vacation mode 
; if not vacation i 



se out time 



VAC_DEB, #VAC_BREAK_IN 
nz , DECVACEXIT 
CLEARVACDEB 



; test for the vacation break point 
; exit if not 



DECVACOUT : 



CLEARVACDEB : 
clr 

DECVACEXIT: 
ret 



; test for the vacation break poi 

; exit if not 

; reset the debouncer 

; and exit 



FORCE TABLE 



f orce_table : 








£?" C : .byte 


000H, 


06BH, 


0 6CH 


.byte 


000H, 


06BH, 


0 6CH 


.byte 


000H, 


06DH, 


073H 


.byte 


000H, 


06FH, 


0 8EH 


.byte 


000H, 


071H, 


OBEH 


.byte 


nnn H ' 


074H, 


0 04H 












onnn' 


07Rh' 


nnaH 


■! b^e 


oooh' 


07Bh' 


0 6CH 




oooh' 




01 




OOOH, 


080h" 


0E8H 


bvte 




083h' 


0D6H 


byte 


OOOH, 


086H, 


0 9BH 


' byte 


OOOH, 


089H, 


07 FH 


.byte 


OOOH, 


08CH, 


084H 


.byte 


OOOH, 


08FH, 


OABH 


. byte 


OOOH, 


092H, 


0F7H 


.byte 


OOOH, 


096H, 


0 6BH 


.byte 


OOOH, 


09AH, 


009H 


. byte 


OOOH, 


09DH, 


0D5H 


. byte 


OOOH, 


0A1H, 


0D2H 


.byte 


OOOH, 


0A6H, 


004H 




OOOH, 


OAAH, 


076H 


. byte 


OOOK, 


OAFH, 


027H 


.byte 


OOOH, 


0B4H, 


01CH 


.byte 


OOOH, 


0B9H, 


05BH 


.byte 


OOOH, 


OBEH, 


OEBH 


.byte 


OOOH, 


0C4H, 


0D3H 


.byte 


OOOH, 


OCBH, 


01BH 


.byte 


OOOH, 


0D1H, 


OCDH 


. byte 


OOOH, 


0D8H, 


0F4H 


.byte 


OOOH, 


OEOH, 


0 9CH 


.byte 


OOOH, 


0E7H, 


01CH 


.byte 


OOOH, 


OEDH, 


OFFH 


.byte 


OOOH, 


0F5H, 


04 FH 


.byte 


OOOH, 


OFDH, 


015H 


.byte 


001H, 


005H, 


05DH 


.byte 


001K, 


OOEH, 


035H 


.byte 


001H, 


017H, 


OABH 


.byte 


00 IK, 


021H, 


0D2H 


. byte 


001K, 


02 CK, 


OBBK 


.byte 


001K, 


03 8K, 


08 OK 


.byte 


001H, 


045H, 


03 AH 


.byte 


001K, 


053H, 


008H 


.byte 


001H, 


062H, 


010H 
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.byte 


001H, 


072H, 


07 DH 


.byte 


001H, 


084H, 


083H 


.byte 


001H, 


098H, 


061H 


.byte 


001H, 


OAEH, 


064H 


.byte 


001H, 


0C6H, 


0E8H 


-byte 


001H, 


0E2H, 


062H 


.byte 


002H, 


001H, 


065H 


.byte 


002H, 


024H, 


OAAH 


.byte 


002H, 


04DH, 


02 4 H 


.byte 


002H, 


07CH, 


010H 


.byte 


002H, 


0B3H, 


01BH 












O03H, 


04 3h', 


0C1H 










.byte 


O04H, 


020H, 


OFCK 


.byte 


O04H, 


0C2H, 


038H 


.byte 


005H, 


09DH, 


08 OK 


.byte 


013H, 


012H, 


ODOH 


f_63: .byte 


013H, 


012H, 


ODOK 


SIM_TABLE: 










. WORD 


00000H 






. WORD 


00000K 






.WORD 


00000K 






. WORD 


OOO0OH 






. WORD 


00O00H 






. WORD 


00000H 






.WORD 


00000H 






.WORD 


00000H 






.WORD 


00000H 






.WORD 


O0000H 






.WORD 


O0O00H 






. WORD 


000C0K 






.WORD 


00000K 




f 


.WORD 


00000H 






. WORD 


OOOOOH 






. WORD 


O00O0H 




:S?EED_TABLE_ 


50: 






. BYTE 


40 






. BYTE 


34 






. BYTE 


32 






.BYTE 


30 






. BYTE 


28 






.BYTE 


27 






. BYTE 


25 






. BYTE 


24 






.BYTE 


23 






.BYTE 


21 






.BYTE 


20 






. BYTE 


19 






.BYTE 


17 






.BYTE 


16 






• BYTE 


15 






.BYTE 


13 






.BYTE 


12 






.BYTE 


10 






. BYTE 


8 






.BYTE 


6 






.BYTE 


0 







Numbers set to zero (proprietary table) 



SPEED TABLE 60: 



. BYTE 33 

. BYTE 2 9 

.BYTE 27 

.BYTE 25 
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.BYTE 23 

. BYTE 22 

. BYTE 21 

.BYTE 20 

.BYTE 19 

.BYTE 18 

.BYTE 17 

.BYTE 16 

. BYTE 15 

.BYTE 13 

. BYTE 12 

. BYTE 1 1 

. BYTE 1 0 

.BYTE 8 

. BYTE 7 

•BYTE 5 

. BYTE 0 



; Fill 4 9 bytes of unused memory 

FILL10 

FILL10 

FILL10 

FILL10 

FILL 

FILL 

FILL 

FILL 

FILL 

FILL 

FILL 

FILL 

FILL 
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